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THIS VOLUME IS ISSUED IN THREE PARTS: 

FART 1 CONTAINS A DIRECTORY OF ALL SUBROUTINE NAMES. 

A DIRECTORY. SELECTED BY FUNCTIONAL KEYWORDS. 
NAMES AND CONTRIBUTIONS OF AUTHORS. 
DEFINITIONS OF KEYWORDS IN USE. 

r-"ART 2 CONTAINS REVISIONS TO SUBROUTINES IN VOLUME #1. 

F>ART 3 CONTAINS 44 NEW PROGRAM MODULES. 



AUTHORS OF THE PDP8 COOKBOOK AND THEIR CONTRIBUTIONS 



F-LOOR ANTHONI 

MEDICAL BIOLOGICAL LABORATORY T. N. 0. 

1..ANGE KLEIWEG 139i RIJSWIJK (ZH)iTHE NETHERLANDS 

1,2, 3, 4.5, 6,7.9, 10, 11. 12, 13, 14, 15, 17, 18,49,50,51,52,53,54, 
^55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70. 71, 72 

ANDRIES E. BROUWER 

MATHEMATISCH CENTRUM 

ZrjE BOERHAAVESTRAAT 49; AMSTERDAM 

BO, 81, 13, 12B 

THIERRI DEN DUNNEN 

DR. NEHER LABORATORIUM 

S>T. PAULUSSTRAAT 4i LEIDSCHENDAMi THE NETHERLANDS 

1.9, 20, 21, 22. 23, 24, 25, 26, 27, 28, 29, 30. 31, 32, 33, 34, 35, 36, 37, 
38, 39, 73,74, 75, 76, 77, 78. 79, 13, 12A, 10 

ADRI.HEMELAAR 

MEDICAL BIOLOGICAL LABORATORY T. N. 0. 

L.ANGE KLEIWEG 139i RIJSWIJK (ZH); THE NETHERLANDS 

^iS, 46, 47, 48. 82. 83 

F^AUL LOHMAN 

MEDICAL BIOLOGICAL LABORATORY T. N. 0. 

LANGE KLEIWEG 139; RIJSWIJK (ZH); THE NETHERLANDS 

1.6 

HANS MEES 

MEDICAL BIOLOGICAL LABORATORY T. N. 0. 

LANGE KLEIWEG 139; RIJSWIJK (ZH); THE NETHERLANDS 

B 

C. VERWEY 

LABORATORIUM VOOR BIOLOGISCHE EN MEDISCHE NATUURKUNDE 
MEDISCHE FACULTEIT ERASMUS UN I VERS I TE IT ROTTERDAM 
P. 0. BOX 1738; ROTTERDAM; THE NETHERLANDS 

40, 41,42. 43,44 



»:.EYWORD?;, CURRENTLY USED IN THE POPS COOKEOOK 



F- UNCTIONS 



ARITHMETIC 



STRING? 



F-ILE 



BORTING 



i::;0NVERSi0N 



INPUT 
OUTPUT 

]:nterrupt 
graphics 



= ALL TYPES OF OPERATIONS OF AN ARITHMETIC NATHPF 
(+-«/ETC. BUT ALSO BOOLEAN ALGEBRA) 
= USED TO DENOTE ALL TYPES OF OPERATIONS 
RELATED TO THE ORGANISATION AND STRUCTURE OF 
DATA. ( ALSO : BUFFERS. CONVENT I ONAL ■ STR I NGS ' FTC 



STRUCTURF f 



SI a 



= OPERATIONS THAT ORGANIZE A DATA 

LARGE STORAGE , BACK I NG UP DE V I CE . 

= USED TO DENOTE THE TYPE OF OPERATIONS WHERE THF 

COMPARISON OF DATA WITH OTHER DATA IS ESSENTIAL. 

= CONVERSION FROM ONE DATA STRUCTURE OR FORMAT TO 

ANOTHER. 
F^ROGRAM CONTROL = DENOTES OPERATIONS THAT ARE USED TO DIRECT THE FLOW 

OF THE PROGRAM IN THE FIRST INSTANCE. 

= OPERATIONS THAT INPUT DATA INTO THE COMPUTER. 

= OPERATIONS THAT PUT DATA OUT FROM THE COMPUTER. 

= DENOTES OPERATIONS WHERE THE INTERRUPT IS USED. 

= OPERATIONS ON GRAPHICAL DATA, AND DISPLAY 
EilGNAL PROCESS I NG= OPERATIONS OF A MATHEMATICAL NATURE ON DATA THAT 

REPRESENT SOME SIGNAL. 



DATA FORMATS 



in NARY 
ASCII 

c;oDE 

OCTAL 
DECIMAL 

hexadecimal 
j:mage 



= THE CONVENTIONAL BINARY' FORMAT AS IT IS USFD 

BY LOADERS. 

= 8 BIT DATA, REPRESENTING ONE CHARACTER FOLLOWING 

THE USASCI I STANDARD 

= A CHARACTER REPRESENTATION FOLLOWING SOME 

OTHER STANDARD 

= ASCI I, RESTRICTED TO 

= ASCII, RESTRICTED TO 

= ASCI I, RESTRICTED TO 

= THE 12 BIT WORD AND SEQUENCES OF POPS COMPUTER W0RD5 



OCTAL VALUES 
DECIMAL VALUES 
HEXADECIMAL VALUES 
SEQUENCES OF POPS 



E5YSTEM SOFTWARE RESTRICTIONS 



DISKMONITDR 

OSS 

TSS8 



= CONFINED FOR DISK MONITOR USERS 

= CONFINED FOR OSS USERS 

== CONFINED FOR TSSS TIMESHARING USERS 



DEVICE TYPE RESTRICTIONS 



DISK 
DECT APE 
MAGTAPE 
DISPLAY 
F>APERTAPE 



= DF32, RFOS, RKOS ETC. 

= DIGITAL EQUIPMENT'S MAGNETIC TAPE UNITS 

= INDUSTRIAL AND OTHER MAGNETIC TAPE DEVICES 

= ALL TYPES OF DISPLAYS, CHARACTER- AND VECTOR TYPP? 

= PAPERTAPE READERS AND PUNCHES, 



OOi TYPE THE CHARACTERS FOLLOWING THE JMS INSTRUCTION. 
K : STR I NGS . OUTPUT . ASC I I 

002 TELETYPE TYPE ROUTINE WITH OVERLAPi NOT RESTART ABLE. 
K : OUTPUT , ASC 1 1 , B I NARY 

003 TYPE A CHARACTER CHAIN 
H;; OUTPUT, ASCII 

004 DECIMAL TO DECIMAL CONVERSION AND TYPE 
f^:. OUTPUT, CONVERSION, BINARY, IMAGE 

005 BINARY TO OCTAL CONVERSION AND PRINT 
K: OUTPUT, CONVERSION, OCTAL 

006 HIGH SPEED READER SUBROUTINE 
K: OUTPUT, PAPERTAPE, ASCII, BINARY 

007 TABULATOR ROUTINE 
^r. : STR I NGS, ASC 1 1 , OUTPUT 

C»OS SUBROUTINE TO MOVE A BLOCK THROUGH CORE 
h::: SORTING, STRINGS, IMAGE 

009 BINARY PUNCH WITH FIELD SETTING 
K; CONVERSION. IMAGE, BINARY, OUTPUT 

010 PAL MESSAGE PRINTER 

K : 0UTPU1 , ASC 1 1 , CONVERS I ON. 

Oil GENERAL BRANCH ROUTINE 
K: PROGRAM CONTROL, 

012 CHECK IF OCTAL 

K: PROGRAM CONTROL, OCTAL, ASCI I 

013 LOGICAL OPERATORS ON TWO NUMBERS 
K: ARITHMETIC 

C»14 PSS-0S8 OPTION DECODER 
h::: PROGRAM CONTROL, OSS 

015 PRINT TWO DIGITS IN DECIMAL 
K: OUTPUT, DECIMAL, CONVERSION 

016 PRINT THE PS8-0SS DATE 
K: OUTPUT, OSS, DECIMAL 

017 PRINT THE AC AS A FOCAL LINENUMBER 
K: OUTPUT, CONVERSION. DECIMAL 

C»18 PRINT 4 DECIMAL DIGITS USING ROUTINE PRNT2 
f<: OUTPUT, CONVERSION, DECIMAL 

01 9 SUBROUTINE READS A DECIMAL NUMBER FROM KEYBOARD 
K : I NPUT , CONVERS I ON , DEC I MAL 



C)20 DECIMAL PRINT ROUTINE 
K . OUTPUT , CON VERS I ON , DEC I M AL 

021 SUBROUTINE TO PRINT DOUBLE LENGTH DECIMAL 
K- OUTPUT, CONVERSION, DECIMAL 

022 OCTAL PRINT ROUTINE 
K: OUTPUT, CONVERSION, OCTAL 

C)23 DOUBLE WORD OCTAL PRINT ROUTINE, USES OCTPRT 
K: OUTPUT, CONVERSION, OCTAL 

024 SUBROUTINE TRANSLATES TELEX CODE TO ASCII 
K: CONVERSION. TELEX, ASCI I 

025 SUBROUTINE TO TRANSLATE TELEX CODE TO ASCII 
^:: : CONVERS I ON , ASC 1 1 , CODE 

026 ROUTINE TO TRANSLATE ASCII TO TELEX CODE 
K: CONVERSION, ASCI I, CODE 

027 INTERRUPT OUTPUT HANDLER WITH ROTATING BUFFER 
K: INTERRUPT, STRINGS, OUTPUT, ASCI I 

C)2S DEVICE INTERRUPT HANnLER 

K: INTERRUPT. STRINGS, OUTPUT, ASCII 

029 SUBROUTINE READS OR WRITES DECT APE IN 2 DIRECTIONS 
K: INPUT, OUTPUT, DECT APE, IMAGE, FILE 

030 SUBROUTINE TO PACK CHARACTERS <TSS8) 
K: CONVERSION, STRINGS, ASCI I, TSSS 

C»31 SUBROUTINE PACKS CHARACTERS ONE BY ONE (TSSS FORMAT) 
K : CONVERS I ON , STR I NGS , ASC I I , TSSS 

032 SUBROUTINE TO PACK CHARACTERS ONE BY ONE (TSSS FORMAT) 
K: CONVERSION, STRINGS, ASCII, TSSS 

C>33 SUBROUTINE TO UNPACK CHARACTERS (TSS8 FORMAT) 
K: CONVERSION, STRINGS, ASCI I , TSSS 

C)34 SUBROUTINE UNPACKS CHARACTERS ONE BY ONE (TSSS FORMAT) 
K: CONVERSION, STRINGS, ASCI I, TSSS 

C)35 SUBROUTINE TO READ A NAME FROM KEYBOARD (EXCESS 40 CODE) 
K: INPUT, CONVERSION, ASCII, STRINGS 

C»36 SUBROUTINE SEARCHES NAME IN DN-BLOCKS (DISKMONITOR) 
K: FILE, STRINGS, DISKMONITOR, DECTAPE, DISK 

CJ37 SUBROUTINE SEARCHES UNUSED BLOCK ON DISK (DISKMONITOR) 
K: FILE, STRINGS, DISKMONITOR, DECTAPE, DISK 

OSS SUBROUTINE SEARCHES INTERNAL FILE NUMBER (DISKMONITOR) 
K: FILE, STRINGS, DISKMONITOR, DECTAPE, DISK 



C)39 SUBROUTINE READS OR WRITES ON DISK <TSSS) 
K: FILE, INPUT, OUTPUT, DISK, TSS8 

040 SUBROUTINE TO DISPLAY A BLOCK OF DATA ON VC8E 
K : CON VERS I ON , OUTPUT , D I SPLAY , STR I NGS 

041 SUBROUTINE TO DISPLAY INPUT FROM AN ANALOG CHANNEL 
K : OUTPUT , CONVERS I ON , D I SPLAY , 

042 SUBROUTINE TO INPUT A BLOCK OF DIGITAL DATA (DR8E) 
W:.: INPUT, STRINGS 

043 SUBROUTINE TO SMOOTH A BLOCK OF DATA IN MEMORY 
K : STR I NGS , AR I THMET I C , S I GNAL PROCESS I NG 

044 SUBROUTINE TO Pt"DI3TRIBUTE A BLOCK OF DATA 
K : STR I NGS , AR I THMET I C . S I GNAL PROCESS I NG 

045 PACK A CHARACTER IN A BUFFER IN OSS FORMAT 
K : CONVERS I ON , STR I NGS , ASC 1 1 , OSS 

046 UNPACK A CHARACTER FROM A BUFFER IN OSS FORMAT 
f :;: CONVERSION, STRINGS, ASCI I, OSS 

C)47 PARITY GENERATOR 
K ; CONVERS I ON, ASC I I 

048 SKIP ON FLAG WITH TIMED OUT RETURN 
h:: PROGRAM CONTROL. INPUT, OUTPUT 

049 SEARCH A LIST FOR A MATCH 
K: STRINGS, PROGRAM CONTROL 

C)50 LIST SEARCH, CROSS-FIELD CALLABLE 
K: PROGRAM CONTROL, STRINGS 

051 RELATIVE BRANCHER, CROSS-FIELD CALLABLE 
K: PROGRAM CONTROL, 

C)52 GENERAL SETUP FOR OSS HANDLERS 
K: INPUT, OUTPUT, OSS, ASCI I, BINARY 

C)53 UNPACK CHAR-BY-CHAR FOR OSS HANDLERS 

K: INPUT, S1 RINGS, OUTPUT, CONVERSION, ASCII, BINARY. OSS 

C»54 UNPACK CHAR-BY-CHAR FOR OSS HANDLERS 

K: INPUT, STRINGS, OUTPUT, CONVERSION. ASCII. BINARY, OSS 

C»55 UNPACK AND PRINT OSS BUFFER (DEVICE HANDLER) 
K: OUTPUTSTRINGS. CONVERSION, ASCI I, BINARY, OSS 

C)56 PUSH AND POP OPERATORS FOR DIFFERENT STACKS 
K: STRINGS, PROGRAM CONTROL 

057 FILL A ROTATING BUFFER QUEUE (FIRST IN FIRST OUT) 
K: STRINGS 

C)5S RESET (CLEAR) A ROTATING BUFFER QUEUE 

K: STRINGS 
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059 FETCH THE NEXT ITEM FROM THE HEAD OF THE QUEUE 
K: STRINGS 

060 COMBINED ROTATING BUFFER OPERATORS, CROSS-FIELD CALLABLE 
K: STRINGS 

061 BINARY LOADER SUBROUTINE 

K: I NPUT . CONVERS I ON . B I N AR Y , I MAGE 

062 INTERRUPT SERVICE BY LIST-LOOK-UP 

K: INTERRUPT, PROGRAM CONTROL, INPUT, OUTPUT 

063 FIND THE SMALLEST HOLE IN A LIST, JUST BIG ENOUGH 
K: STRINGS, SORTING 

C)64 LINK FOR RELOCATABLE CROSS-PAGE REFERENCING IN ONE FIELD 
K: PROGRAM CONTROL 

065 INITIALIZE THE FREECORE AREA 
K: STRINGS 

C)66 REQUEST A FREE BLOCK 
K: STRINGS 

C»67 RELEASE A BLOCK TO FREECORE 
K: STRINGS 

<:i68 RELEASE A QUEUE OF FORWARD LINKED BLOCKLETS TO FREECORE 
K: STRINGS 

069 MAKE A BUFFER OR 'QUEUE' 
K: STRINGS 

070 READ NEXT ELEMENT FROM THE TAIL OF A ROTATING BUFFER (QUEUE) 
K: STRINGS 

071 WRITE AN ELEMENT ONTO THE TOP OF A BUFFERQUEUE 
K: STRINGS 

Ci72 KILL THE BUFFER QUEUE 
K: STRINGS 

073 ROUTINE TO CONVERT OCTAL NUMBERS 0-17 TO EXCESS-40 STRIPPED CODE 
K: CONVERSION, OCTAL, CODE 

Ci74 INTERRUPT ROUTINE FOR REAL-TIME CLOCK 
K: INTERRUPT, CONVERSION 

C)75 PRINT DATE, WEEKDAY AND TIME FROM THE REGISTERS. 
}■■■:. : CON VERS I ON , DEC I MAL 

076 SUBROUTINE TO UNPACK TSS8 TIME 
K: CONVERSION, DECIMAL, TSSS 

C»77 SUBROUTINE TO UNPACK TSSS TIME 
K: CONVERSION. DECIMAL, TSSS 



078 SUBROUTINE TO UNPACK TSSS DATE. 
K: CONVERSION. DECIMAL, TSSS 

079 DECIMAL PRINT WITH VARIABLE NUMBER OF DIGITS. 
K ■ OUTPUT , eONVERS I ON, DEC I MAL 

OSO OCTAL. PRINT WITH LEADING SPACES. 
\<: OUTPUT, CONVERSION, OCTAL 

C»81 DOUBLE WORD OCTAL PRINT ROUTINE 
K: OUTPUT, CONVERSION, OCTAL 

082 ASCII STRING GENERATOR 
K: OUTPUT, ASCI I, STRINGS 

CiSS INCREMENT DOUBLE PRECISION COUNTER. 
K: ARITHMETIC 



ARITHMETIC. 



Ctl3 LOGICAL OPERATORS ON TWO NUMBERS 
C)43 SUBROUTINE TO SMOOTH A BLOCK OF DATA IN MEMORY 
044 SUBROUTINE TO REDISTRIBUTE A BLOCK OF DATA 
CJ83 INCREMENT DOUBLE PRECISION COUNTER. 



C;ONVERSION, 



C»04 DECIMAL TO DECIMAL CONVERSION AND TYPE 

C)05 BINARY TO OCTAL CONVERSION AND PRINT 

C)09 BINARY PUNCH WITH FIELD SETTING 

OlO PAL MESSAGE PRINTER 

C)15 PRINT TWO DIGITS IN DECIMAL 

Oil PRINT THE AC AS A FOCAL LINENUMEER 

OlS PRINT 4 DECIMAL DIGITS USING ROUTINE PRNT2 

019 SUBROUTINE READS A DECIMAL NUMBER FROM KEYBOARD 

C)20 DECIMAL PRINT ROUTINE 

021 SUEiROUTINE TO PRINT DOUBLE LENGTH DECIMAL 

022 OCTAL PRINT ROUTINE 

C»23 DOUBLE WORD OCTAL PRINT ROUTINE, USES OCTPRT 

024 SUBROUTINE TRANSLATES TELEX CODE TO ASCII 

025 SUBROUTINE TO TRANSLATE TELEX CODE TO ASCII 
C»26 ROUTINE TO TRANSLATE ASCII TO TELEX CODE 

030 SUBROUTINE TO PACK CHARACTERS (TSSS) 

03 1 SUBROUTINE PACKS CHARACTERS ONE BY ONE (TSSS FORMAT) 
C)32 SUBROUTINE TO PACK CHARACTERS ONE BY ONE (TSSS FORMAT) 

033 SUBROUTINE TO UNPACK CHARACTERS (TSSS FORMAT) 

034 SUBROUTINE UNPACKS CHARACTERS ONE BY ONE (TSS8 FORMAT) 
C»35 SUBROUTINE TO READ A NAME FROM KEYBOARD (EXCESS 40 CODE) 
C»40 SUBROUTINE TO DISPLAY A BLOCK OF DATA ON VC8E 

C»41 SUBROUTINE TO DISPLAY INPUT FROM AN ANALOG CHANNEL 
CJ45 PACK A CHARACTER IN A BUFFER IN OSS FORMAT 
046. UNPACK A CHARACTER FROM A BUFFER IN OSS FORMAT 
C)47 PARITY GENERATOR 

053 UNPACK CHAR-BY-CHAR FOR OSS HANDLERS 

054 UNPACK CHAR~BY-CHAR FOR OSS HANDLERS 

055 UNPACK AND PRINT OSS BUFFER (DEVICE HANDLER) 
C)61 BINARY LOADER SUBROUTINE 

073 ROUTINE TO CONVERT OCTAL NUMBERS 0-17 TO EXCESS-40 STRIPPED CODE 

074 INTERRUPT ROUTINE FOR REAL-TIME CLOCK 

075 PRINT DATE, WEEKDAY AND TIME FROM THE REGISTERS. 



C)76 SUBROUTINE TO UNPACK TSSS 
077 SUBROUTINE TO UNPACK TSSS 
C)78 SUBROUTINE TO UNPACK TSSS 
079 DECIMAL PRINT WITH VARIAE 

050 OCTAL PRINT WITH LEADING SPACES 

051 DOUBLE WORD OCTAL PRINT ROUTINE 



TIME 
TIME 
DATE. 
LE NUMBER OF DIGITS. 



F-ILE, 



OZ9 SUBROUTINE 
03& SUBROUTINE 
C)37 SUBROUTINE 
C138 SUBROUTINE 
C)39 SUBROUTINE 



READS OR WRITES DECT APE IN 2 DIRECTIONS 
SEARCHES NAME IN DN-ELOCKS (DISKMONITOR) 
SEARCHES UNUSED BLOCK ON DISK (DISKMONITOR) 
SEARCHES INTERNAL FILE NUMBER (DISKMONITOR) 
READS OR WRITES ON DISK (TSSS) 



ilNPUT, 



019 
029 
C)35 
C)39 
C)41 
C)42 
C)48 
C)52 
C»53 
Ci54 
C)61 
C)<f>2 



SUBROUTINE 
SUBROUTINE 
SUBROUTINE 
SUBROUTINE 
SUBROUTINE 
SUBROUTINE 



READS A DECIMAL NUMBER FROM KEYBOARD 

READS OR WRITES DECTAPE IN 2 DIRECTIONS 

TO READ A NAME FROM KEYBOARD (EXCESS 40 CODE) 

READS OR WRITES ON DISK (TSSS) 

TO DISPLAY INPUT FROM AN ANALOG CHANNEL 

TO INPUT A BLOCK OF DIGITAL DATA (DRSE) 

SKIP ON FLAG WITH TIMED OUT RETURN 

GENERAL SETUP FOR OSS HANDLERS 

UNPACK CHAR-BY-CHAR FOR OSS HANDLERS 

UNPACK CHAR-BY-CHAR FOR OSS HANDLERS 

BINARY LOADER SUBROUTINE 

INTERRUPT SERVICE BY LIST-LOOK-UP 



INTERRUPT , 



C»27 INTERRUPT OUTPUT HANDLER WITH ROTATING BUFFER 

C)28 DEVICE INTERRUPT HANDLER 

C)62 INTERRUPT SERVICE BY LIST-LOOK-UP 

CJ74 INTERRUPT ROUTINE FOR REAL-TIME CLOCK 



S5IGNAL PROCESSING. 



043 SUBROUTINE 
C)44 SUBROUTINE 



TO SMOOTH A BLOCK OF DATA IN MEMORY 
TO REDISTRIBUTE A BLOCK OF DATA 



SORTING, 



CtOS SUBROUTINE TO MOVE A BLOCK THROUGH CORE 
C)63 FIND THE SMALLEST HOLE IN A LIST. JUST BIG 
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ENOUGH 



OUTPUT, 



C)82 ASCII STRING GENERATOR 

CtOl TYPE THE CHARACTERS FOLLOWING THE JMS INSTRUCTION. 

C»02 TELETYPE TYPE ROUTINE WITH OVERLAP; NOT RESTARTABLE. 

C)03 TYPE A CHARACTER CHAIN 

C)04 DECIMAL TO DECIMAL CONVERSION AND TYPE 

C»05 BINARY TO OCTAL CONVERSION AND PRINT 

C)06 HIGH SPEED READER SUBROUTINE 

C)07 TABULATOR ROUTINE 

009 BINARY PUNCH WITH FIELD SETTING 

010 PAL MESSAGE PRINTER 

CH5 PRINT TWO DIGITS IN DECIMAL 

C)16 PRINT THE PS8-0SS DATE 

CH7 PRINT THE AC AS A FOCAL LINENUHBER 

OiS PRINT 4 DECIMAL DIGITS USING ROUTINE PRNT2 

O20 DECIMAL PRINT ROUTINE 

Ci21 SUBROUTINE TO PRINT DOUBLE LENGTH DECIMAL 

022 OCTAL PRINT ROUTINE 

023 DOUBLE WORD OCTAL PRINT ROUTINE, USES OCTPRT 
CJ27 INIERRUPT OUTPUT HANDLER WITH ROTATING BUFFER 
C»2S DEVICE INTERRUPT HANDLER 

029 SUBROUTINE READS OR WRITES DECT APE IN 2 DIRECTIONS 

C»39 SUBROUTINE READS OR WRITES ON DISK (TSS8) 

C»40 SUBROUTINE TO DISPLAY A BLOCK OF DATA ON VCSE 

C)41 SUBROUTINE TO DISPLAY INPUT FROM AN ANALOG CHANNEL 

C»4S SKIP ON FLAG WITH TIMED OUT RETURN 

C)52 GENERAL SETUP FOR OSS HANDLERS 

C153 UNPACK CHAR-BY-CHAR FOR 0S8 HANDLERS 

CJ54 UNPACK CHAR-BY-CHAR FOR OSS HANDLERS 

055 UNPACK AND PRINT OSS BUFFER (DEVICE HANDLER) 

C)62 INTERRUPT SERVICE BY LIST-LOOK-UP 

079 DECIMAL PRINT WITH VARIABLE NUMBER OF DIGITS. 

C»80 OCTAL PRINT WITH LEADING SPACES. 

C»81 DOUBLE WORD OCTAL PRINT ROUTINE 

082 ASCII STRING GENERATOR 



F>ROGRAM CONTROL. 



Oil GENERAL BRANCH ROUTINE 

012 CHECK IF OCTAL 

014 PS8-0SS OPTION DECODER 

048 SKIP ON FLAG WITH TIMED OUT RETURN 

C)49 SEARCH A LIST FOR A MATCH 

Ci50 LIST SEARCH. CROSS-FIELD CALLABLE 

05 1 RELATIVE ERANCHER, CROSS-FIELD CALLABLE 

C15& PUSH AND POP OPERATORS FOR DIFFERENT STACKS 

C)62 INTERRUPT SERVICE BY LIST-LOOK-UP 

C)64 LINK FOR RELOCATABLE CROSS-PAGE REFERENCING IN ONE FIELD 
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;:.TRiNGs, 



082 ASCII STRING GENERATOR 

OOl TYPE THE CHARACTERS FOLLOWING THE JMS INSTRUCTION. 

007 TABULATOR ROUTINE 

008 SUBROUTINE TO MOVE A BLOCK THROUGH CORE 

027 INTERRUPT OUTPUT HANDLER WITH ROTATING BUFFER 

CJ28 DEVICE INTERRUPT HANDLER 

030 SUBROUTINE TO PACK CHARACTERS <TSSS) 

031 SUBROUTINE PACKS CHARACTERS ONE BY ONE (TSSS FORMAT) 

032 SUBROUTINE TO PACK CHARACTERS ONE BY ONE (TSS8 FORMAT) 

033 SUBROUTINE TO UNPACK CHARACTERS (TSSS FORMAT) 

034 SUBROUTINE UNPACKS CHARACTERS ONE BY ONE (TSSS FORMAT) 
C»35 SUBROUTINE TO READ A NAME FROM KEYBOARD (EXCESS 40 CODE) 

036 SUBROUTINE SEARCHES NAME IN DN-BLOCKS (DISKMONITOR) 

037 SUBROUTINE SEARCHES UNUSED BLOCK ON DISK (DISKMONITOR) 
Ci5S SUBROUTINE SEARCHES INTERNAL FILE NUMBER (DISKMONITOR) 
O40 SUBROUTINE TO DISPLAY A BLOCK OF DATA ON VCSE 

042 SUBROUTINE TO INPUT A BLOCK OF DIGITAL DATA (DRSE) 

043 SUBROUTINE TO SMOOTH A BLOCK OF DATA IN MEMORY 

044 SUBROUTINE TO REDISTRIBUTE A BLOCK OF DATA 
OAZ< PACK A CHARACTER IN A BUFFER IN OSS FORMAT 
OA6 UNPACK A CHARACTER FROM A BUFFER IN OSS FORMAT 

049 SEARCH A LIST FOR A MATCH 

050 LIST SEARCH, CROSS-FIELD CALLABLE 
CJ53 UNPACK CHAR-BY-CHAR FOR OSS HANDLERS 
Or.4 UNPACK CHAR-BY-CHAR FOR OSS HANDLERS 

055 UNPACK AND PRINT OSS BUFFER (DEVICE HANDLER) 

Or.6 PUSH AND POP OPERATORS FOR DIFFERENT STACKS 

057 FILL A ROTATING BUFFER GiiUEUE (FIRST IN FIRST OUT) 

05S RESET (CLEAR) A ROTATING BUFFER QUEUE 

039 FETCH THE NEXT ITEM FROM THE HEAD OF THE QUEUE 

(:j60 combined rotating BUFFER OPERATORS, CROSS-FIELD CALLABLE 

063 FIND THE SMALLEST HOLE IN A LIST, JUST BIG ENOUGH 

065 INITIALIZE THE FREECORE AREA 

066 REQUEST A FREE BLOCK 

067 RELEASE A BLOCK TO FREECORE 

06B RELEASE A QUEUE OF FORWARD LINKED BLOCKLETS TO FREECORE 

069 MAKE A BUFFER OR -QUEUE" 

070 READ NEXT ELEMENT FROM THE TAIL OF A ROTATING BUFFER (QUEUE) 

07 1 WRITE AN ELEMENT ONTO THE TOP OF A EUFFERQUEUE 

072 KILL. THE BUFFER QUEUE 
082 ASCII STRING GENERATOR 
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F<EVISIONS TO THE POPS COOKBOOK VOLUME 1 

Clio CAN BE IMPROVED BY CHANGING THE FIRST INSTRUCTION 

CMA' INTO 'CLA CMA'. 
THIS ROUTINE IS , HOWEVER, SUPERCEDED BY OlOA. 

Cil3 EXCLUSIVE OR ROUTINE CAN BE IMPROVED: 

TAD A 
AND B 
CMA I AC 
CLL RAL 
TAD A 
TAD B 

OR AS FOLLOWS: 
TAD A 
AND B 
CLL RAL 
CIA 
TAD A 
TAD B 

THE NOR ROUTINE CAN BE IMPROVED: 

TAD A 
CMA 
AND B 
TAD A 
CMA 
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/OlOA PAL MESSAGE PRINTER (REPLACES # 010) 

/PRINTS A MESSAGE CODED WITH THE 

/PALD OR PALS PSEUDO-OP "TEXT" . 

/■■ 

/•PALD AND PALS COMPATIBLE EXCEPT CAR RET fk LINEFEED. 

./' 

./■ 

/■ 

./' 

./■" 

/■ 

./■■ 

RE- 



CALL: JMS PRMESG 
MESG 
RETURN (AC=0) 

MESG, TEXT •■■ABC82- /CODED AS 0102i 0370; 6200 



^•RMESG, 

CLA 
TAD 
DCA 
ISZ 

••RMESl.CLA 
DCA 
ISZ 
TAD 
RTR 
RTR 
RTR 

:RMES2, AND 
SNA 
JMP 
TAD 
AND 
TAD 
JMS 
ISZ 
JMP 
TAD 
JMP 

RMES3, O 
RMES4. O 



CMA 

I PRMESG 

PRMES3 

PRMESG 

CMA 

PRMES4 

PRMES3 

I PRMES3 



C77 

I PRMESG 

C240 

077 

C240 

PRINT 

PRMES4 

PRMESl 

I PRMES3 

PRMES2 



/SAVE POINTER 

/FOR RETURN 

/UNPACKSWITCH 

/NEXT WORD 

/FETCH WORD 

/* 

/MAY BE CODED -BSW' FOR 8E 

/* 

/MASK 6 BITS 

/END OF LIST? 

/YES 

/RECODE 

/CHARACTER TO 

/BE PRINTED 

/AND PRINT 

/TEST L-R SWITCH 

/LEFT 

/RIGHT 



/POINTER 
/UNPACKSWITCH 0=Ri 1=L 



GENERAL CONSTANTS 
77, 77 
240, 240 



U 



./012A CHECK IF OCTAL DIGIT (REPLACES # 012) 

/■ROUTINE CHECKS WHETHER THE AC IS AN OCTAL DIGIT 

/■ 

/TAD CHARACTER 

/'..IMS OCTCHK 

/NOT OCTAL RETURN 

/•OCTAL RETURN 

/' 

OCTCHK, 

TAD M260 

AND C7770 /OR "AND MiO" 

SNA CLA 

ISZ OCTCHK /RETURN FOR OCTAL DIGIT 

JMF- I OCTCHK 
/ 

/GENERAL CONSTANTS 
M260. -260 
WnilO, 1110 

/■012B CHECK WHETHER OCTAL OR NOT 

/'ROUTINE CAN BE MORE PRACTICAL IF 'SZL CLA' BECOMES 
/'•'SZL' OR 'SNL' IN WHICH CASE THE 'OCTALRETURN' 
/'IS WITH THAT DIGIT IN THE AC. THE OTHER RETURN IS 
/'WITH AC=-260 

10 

-270 
OCTCHK, 

TAD OCTCHK- 1 

CLL 

TAD OCTCHK-2 

SZL CLA 

ISZ OCTCHK 

JMP I OCTCHK 
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y019A REV. 9 FEE 1973 

/ SUBROUilNE READS A DECIMAL NUMBER FROM KEYED 

/•RUBOUT REMOVES NUMBER COMPLETELY 

/■■ 

/■ 

/'CALL : JMS DECINP 

/■ RETURN WITH NUMBER BINARY IN AC 



/ 




/■ 




[JECINP, 




CLA 




DCA 


DECNUM 


JMS 


READ 


TAD 


CHAR 


JMS 


PRINT 


TAD 


CHAR 


TAD 


M377 


SNA 


CLA 


JMP 


DECINP+1 


TAD 


CHAR 


TAD 


N260 


SPA 




JMP 


DECOUT 


TAD 


M12 


SMA 


CLA 


JMP 


DECOUT 


TAD 


DECNUM 


CLL 


RTL 


TAD 


DECNUM 


CLI.. 


RAL 


TAD 


CHAR 


TAD 


M260 


DCA 


DECNUM 


JMP 


DECINP+3 


EjECOUT. CLA 




TAD 


DECNUM 


JMP 


I DECINP 


/VARIABLES 




DECNUM, 




/GENERAL CONSTANTS 


M12. -12 




M260, -260 


M377, -377 



/CLEAR REGISTER 

/READ CHAR FROM KEYBOARD 

/PRINT THAT CHAR 
/GET CHARACTER 
/IS IT RUBOUT? 



/YES 
/NO 



READ ALL OVER AGAIN 



/CHAR:>=260? 

/NO , CHARACTER I S DEL I METER 

/YES 

/CHAR<272? 

/NO. CHAR IS DEL I METER 

/YES, CHAR IS FIGURE 

/NUMB*4 

/NUMB*4+ 1 =NUMB«5 

/NUMB«5*2=NUMB* 1 

/ADD LAST FIGURE 

/DECIMAL NUMBER 



/EXIT 



16 



/SUBROUTINE TO DISPLAY A PLOCK OF DATA 

/DISPLAY CaMTRO.: VC8-E 

/CALLING SEQUENCE: 

/ JMS DISPLA 

/ START ADDRESS OF MEiMORY BLOCK MINUS 1 

/ MINUS NO OF WORDS (MAX -giL. ) 

/ RETURN /AC=0 



0^0 



IR1=10 




7000 






DI SPLA^ 









TAD I DISPLA 


/GET START ADDRESS 




DCA IRl 






ISZ DISPLA 






TAD I DISPLA 


/GET NO. OF WORDS 




DCA DISPLA- 1 






TAD DISPLA- g 


/GET LEFT POINT ON 




DCA DISPLA- 3 




DISNEX* 


TAD DISPLA- 3 

DILX 

CLA 


/GET X-POINT 




TAD I IRl 


/GET DATA 




DILY 






CLA 






DISD 


/WAIT FOR SETTLING 




JMP .-1 






DIXY 






IS^ DISPLA- 3 


/INCREMENT X-POINT 




NOP 






ISZ DISPLA- 1 


/INCREiv-iKNjT COUNT 




JMP DISNEX 






ISZ DISPLA 


/SET RETURN ADDRESS 




JMP I DISPLA 


/RETURN 
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/SUBROUTINE TO DISPLAY INPUT FROM AN ANALOG CHANNEL 

/INPUT: AD8-E +AM8-E* DISPLAY CONTROL: VC8E 

/CALLING SEQUENCE; 

/ JMS MULDIS 

/ MULTIPLEXER CHANNEL 

/ RETURM /AC=0 



0^1. 













-1777 




7000 




MULDIS> 




TAD I MULDIS 


ADLM 




TAD MULDIS- 


•1 


DCA MULDIS- 


•4 


TAD MULDIS- 


•2 


DCA MULDIS- 


•3 


MUI.NEX* TAD MULDIS- 


•4 


DILX 




CLA 




JMS MULSAM 




DILY 




CLA 




DISD 




JMP .-1 




DIXY 




ISZ MULDIS- 


■A 


NOP 




ISZ MULDIS- 


•3 


JMP MULNEX 




ISZ MULDIS 




JMP I MULDIS 


MULSAM, 




ADST 




ADSK 




JMP .-1 




ADRB 




JMP I MULSAM 



/GET CHANNEL 

/GET LEFT POINT ON DISPLAY 
/GET MINUS NO. OF POINTS 
/GET X-POINT 

/GET SAMPLE 

/WAIT FOR SETTLING 

/INCREMENT X-POINT 

/INCREMENT COUNT 
/GO TO NEXT POINT 
/SET RETURN ADDRESS' 
/RETURN 

/START CONVERSION 

/WAIT FOR CONVERSION DONE 
/READ AD BUFFER 
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/SUBROUTINE TO INPUT A BLOCK OF DIGITAL DATA 

/INPUT VIA THE DIGITAL I/O DK8-E 

/CALLING SEQUENCE; 

/ JMS DIGIN 

/ START ADDRESS OF MEMORY BLOCK MINE'S 1 

/ MINUS NO OF WORDS 

/ RETURN /AC=0 

/START DATA BLOCK: BIT 10 

/WORD COMMAND: BIT 11 

/END DATA BLOCK: BIT 9 



0^2. 



IR1=10 



DIGINj 



I DIGIN 
IRl 
DIGIN 
I DIGIN 
DIGIN-1 







TAD 

DCA 

ISZ 

TAD 

DCA 

DBCO 

DBCI 

CLA CLL 

DBSO 

DBCO 

CLA CLL 

DBSO 

DBCO 

CLA CLL 

DESK 

JMP .-1 

DBRI 

DBCI 

DCA I IRl 

ISZ DIGIN-1 

JMP .-12 

CLA CLL I AC 

DBSO 

DBCO 

CLA CLL 

ISZ DIGIN 

JMP I DIGIN 



lAC RAL 



lAC 



RTL 



/GET START ADDRESS 



/GET NO. OF WORDS 

/CLEAR OUTPUT REGISTER 
/CLEAR INPUT REGISTER 
/START DATA BLOCK 
/SET OUTPUT REGISTER 
/CLEAR OUTPUT REGISTER 
/WORD COMMAND PULSE 



/WAIT FOR FLAG 

/READ INPUT REGISTER 
/CLEAR INPUT REGISTER 

/INCREl^ENT COUNTER 
/GO TO NEXT WORD 
/BWD DATA BLOCK 



/SET RETUF.N 
/RETURN 



ADDRESS 
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/SUBROUTINE TO SMOOTH A BLOCK OF DATA IM MEMORY 
/DATA WILL BE SMOOTHED WITH THE FILTER: 
/A(n= l/4.A(I-U +1/2. A(I) +1/4.A(I+1) 
/CALLING SEQUENCE: 



0^3 



/ 

/ 
/ 
/ 



FILTER, 



FILNEX* 



1 



JMS FILTER 

START ADDRESS 
MINUS NO OF 

RETURN /AC=0 













TAD 

DCA 

ISZ 

TAD 

DCA 

TAD 

DCA 

TAD 

DCA 

TAD 

JMS 

JMS 

DCA 

ISZ 

TAD 

JMS 

TAD 

DCA 

ISZ 

TAD 

JMS 

JMS 

TAD 

DCA 

TAD 

DCA 

TAD 

DCA 

ISZ 

TAD 

CIA 

CMA 

DCA FILTER- 1 

ISZ FILTER- fi 
JMP FILNEX 

ISZ FILTER 
JMP I FILTER 



OF MEMORY BLOCK 
POINTS 



I FILTER 

FILTER- 1 

FILTER 

I FILTER 

FILTER- 2 

FILTER-1 

FILTER- 3 

I FILTER 

FILTER- 5 

I FILTER-1 

FILHAL 

FILHAL 

FILTER- 4 

FILTER-1 

I FILTER-1 

FILHAL 

FILTER- 4 

FILTER- 4 

FILTER-1 

I FILTER-1 

FILHAL 

FILHAL 

FILTER-4 

FILTER-4 

FILTER-5 

I FILTER- 3 

FILTER-4 

FILTER-5 

FILTER-3 

FILTER-1 



/GET START ADDRESS 
/INPUT POINTER 



/GET MINUS NO, 
/POINT COUNT 



OF POINTS 



/OUTPUT POINTER 
/GET FIRST POINT 
/SAVE IT IN OUT- STORE 
/GET FIRST POINT 

/DIVIDE BY 4 

/SAVE IT IN IN- STORE 

/INCREMEi^JT INPUT POINTER 

/GET SECOND POINT 

/DIVIDE BY 2 

/ADD AND 

/ SAVE IT IN IN-STORE 

/INCREMENT INPUT POINTER 

/GET THIRD POINT 

/DIVIDE BY 4 

/ADD AND 

/SAVE IT IN IN-STORE 

/GET PREVIOUS RESULT 

/PUT IT BACK IN MEMORY 

/GET CURRENT RESULT 

/SAVE IT FOR NEXT OUTPUT 

/INCREMENT OUTPUT POINTER 

/GET INPUT POINTER 

/AND 

/SUBTRACT ONE 

/INCREMEiNJT POINT COUNT 
/GO TO NEXT POINT 
/SET RETURN ADDRESS 

/RETURN 
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FILHAL> 











SPA 




/IS IT POSITIVE? 




JMP 


. + 4 






CLL 


RAR 


/YES* DIVIDE POS 




CLL 




/NUMBER BY TWO 




JMP 


I FILHAL 


/AND JMP BACK 




STL 




/no, DIVIDE NE6. 




RAR 




/NUMBER BY TWO 




CLL 








JMP 


I FILHAL 


/AND JMP BACK 
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/SUBROUTINE TO REDISTRIBUTE A BLOCK OF DATA. 

/A SIGNAL, CONSISTING OF X SAMPLES IS REDISTRIBUTED 

/INTO A SIGNAL CO^JSI STING OF THE NEAREST LOWER 

/2tN SAMPLES. (MAX 2048) 

/END OF SIGNAL CONDITION: 10 SUCCEEDING ZERO'S. 



0Mh 



/GENERAL: X POINTS BECOME Y = 2tN POINTS 

/ (X-1) (X-1) 

/y(I) = (l-REST OF I. .CONTENTS OF I. + 

/ (Y-1) (Y-1) 

/ (X-1) (X-1) 

/(1-(1-REST OF I. -)). CONTENTS OF (I. +1) 

/ (Y-1) (Y-1) 

/THIS OPERATION IS NECESSARY PRIOR TO APPLYING 
/A FAST FOURIER TRANSFORM TO A PERIODIC SIGNAL, 
/NOT CONSISTING OF 8tN SAMPLES. 

/NECESSARY HARDWARE: KE8-E EXTENDED ARITHMETIC EL. 

/CALLING SEQUENCE: 

/ JMS REDIST 

/ START ADDRESS OF MEMORY BLOCK MINUS 1 

/ MINUS NO. OF POINTS OF SIGNAL BUFFER 

/ . RETURN /AC=0 

IR1=10 

REDSTA, 



REDPOI, 











RED0, 











REE*I11, 


-11 








REDCNT, 











REDNO, 











REDCMP, 











REDNEW, 











REEXyilN, 


-1 








REDRES, 











REDLOC, 











REDPOS* 


4000 






REDFAC, 











REDIST, 













TAD 


I REDIST 


/GET 


START ADDRESS 




DCA 


IRl 








TAD 


I REDIST 








lAC 










DCA 


REDSTA 








ISZ 


REDIST 








TAD 


I REDIST 


/GET 


- NO. OF POINTS 




DCA 


REDPOI 








TAD 


I REDIST 








DCA 


REDTLR 








ISZ 


REDIST 


/SET 


RETURN ADDRESS 
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REE»JUL* TAD I IRl 
ISZ REDTLR 
SKP 

JMP I REDIST 
SNA 

JMP .+3 
CLA CLL 
JMP .-7 
TAD IRl 
DC A RED0 
TAD REDMll 
DC A REDCNT 
TAD I IRl 
ISZ REDCNT 
JMP .-2 
SZA CLA 
JMP REIXMUL 
TAD REDSTA 
CIA 

TAD RED0 
DCA REEWO 
CLA CLL CML RAR 
DCA REDCMP 
TAD REDC'JO 
AND REDCMP 
SNA CLA 
JMP . + /J 
TAD REDCMP 
DCA REDNEW 
JMP .+5 
TAD REDCMP 
CLL RAR 
DCA REDCMP 
JMP .-12 
CAM 
SWAB 

TAD REDNEW 
CIA 

DCA REDTLR 
DCA RED0 
TAD REDSTA 
TAD REIWIN 
DCA IRl 
TAD REDNO 
TAD REDMIN 
DCA REDNO 
TAD REDNEW 
TAD REDMIN 
DCA REDNEW 



/GET WOJiD 

/INCREMENT WORD COUNT 

/RETURN, NO END OF SIGNAL 
/TEST FOR AC=0 



/NO, TAKE NEXT WORD 
/YES, STORE LOCATION 
/OF FIRST ZERO 



/ADD NEXT 9 WORDS 



/TEST l-OR SUi-^ =0 
/NO, GO ON 
/YES AND 
/CALCULATE 
/NO. OF POINTS 

/MAKE 4000 



/AND WITH 2tN 
/TEST FOR NON ZERO 

/YES, THIS IS THE 
/NEW NO. OF POINTS 

/NO, DIVIDE 
/BY TWO 

/AND GO AGAIN 



/GET 2tN POINTS 

/PUT IN COUNTER 
/CLEAR I 

/GET START ADDRESS 
/SUBTRACT ONE 

/GET ORIGINAL NO. OF POINTS 

/SUBTRACT CX^JE 

/THIS IS: (X-1) 

/GET NEW NO. OF POINTS 

/SUBTRACT a^E 

/THIS IS: (Y-l) 
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REDNEXj 



REDSTA 
REDLOC 
REDMEW 

REDRES 



I REDLOC 

REDPOS 

REDCMP 



TAD REDNO 

KQL 

MUY 

RED0 

DVI 

REEiMEW 

DCA REDRES 

SWF 

TAD 

DCA 

TAD 

MQL 

TAD 

SAM 

MQL 

TAD 

TAD 

DCA 

MUY 

REDCMP 

DVI 

REDNEW 

SWP 

DCA 

CAM 

isj: 

TAD 

MQL 

TAD 

TAD 

DCA 

MUY 

REDCMP 

DVI 

REDNEW 

SWP 

TAD 

TAD 

DCA 



REDFAC 

REDLOC 

REDRES 

I REDLOC 

REDPOS 
REDCMP 



ISZ 
ISZ 
JMP 
TAD 
TAD 
DCA 
TAD 
TAD 
lAC 
DCA 
DCA 

isz: 

JMP 

JMP 



REDFAC 

REDPOS 

I IRl 

RED0 

REDTLR 

REDNEX 

REDNEW 

REDSTA 

IRl 

REDPOI 

REDNEW 

REDTLR 

I IRl 

REDTLR 

.-2 

I REDIST 



/GET <X-1 ) 



/MULTIPLY WITH I 

/DIVIDE BY (Y-1 ) 
/SAVE REST 
/QUOTIEiSiT TO AC 
/GET START ADDRESS 
/SUM IS: LOCATIQM 
/GET (Y-1) 

/GET REST 

/RESULT: (Y-D-REST 

/PUT IN MQ 

/GET CQN3TEMTS Op LOC 

/MAKE POS. 

/MULT. (Y-D-REST 

/WITH POS. CONTENTS OF LOC. 

/DIVIDE RESULT 

/BY (Y-1) 

/SAVE FIRST FACTOR 

/INCREMENT LOCATIttM 

/ge;t rest 

/get contents of loc +1 

/MAKE POS. 

/i»3ULTIPLY REST WITH 
/POS. CaMTENTS OF LOC* +1 
/DIVIDE BY 
/(Y-1 ) 

/ADD FIRST FACTOR 
/GET RIGHT SIGN 
/AND STORE IN MEMORY 
/INCREMENT I 
/INCREMENT COUNTER 
/NEXT POINT 

/CALCULATE END ADDRESS 
/OF SIGNAL 

/GET -NUMBER OF POINTS 

/IN SIGNAL BUFFER 

/COMPUTE REST NO. OF POINTS 

/CLEAR REST OF BUFFER 



/RETURN 
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/ 
/ 

/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 



PACK A CHAHACTEh IN A BUFFER IN OS/8 FORMAT 
CAN BE USED FOR BUFFERS UP TO 31 PAGES 

(NOT USING LAST PAGE OF FIELD) 
PARAMETERS ARE: 

CURFLD: FIELD OF SUBROUTINE 

BUFFLD: FIELD OF BUFFER 

BUFBEG> BUFEND: DEFINE SIZE OF BUFFER 
CALL: TAD CHAH 

JMS PACKB 

BUFFER FULL RETURN(AC=0) 
NORMAL RETURN (AC=0) 



0i^S 



PACKBj 



PACKBU 



PACKB2i 





• ■" • 

DCA 

TAD 

CDF 

SZA 

JMP 

TAD 

DCA 

TAD 

CLL 

SNL 

JMP 

CLA 

DCA 

SKP 

ISZ 

JMP 

CLA 

TAD 

DCA 

TAD 

RTL 

RTL 

DCA 

TAD 

AND 

TAD 

DCA 

ISZ 

ISZ 

JMP 

TAD 

CMA 

TAD 

SNL 

JMP 

TAD 

DCA 

SKP 

ISZ 

CDF 

JMP 



/TEMPORARY STORAGE 

PACKB- 1 /SAVE CHARACTER 

PACKSW /TEST PACKSWITCH 
BUFFLD 

PACKEl /IF -2 

PACKB- 1 /GET CHARACTER 

I PACPTR /INSERT IN BUFFER 

PACPTR 

RAR /IS POINTER ODD ? 

CLA /SKIP IF YES 

. + 4 

CLL CMA RAL /SET PACKSWITCH TO -2 

PACKSW 



PACPTR /INCREMENT POINTER IF EVEN 

PACKB2 /GO TO EXIT 
CLL CMA 

PACPTR /DECREivlENT POINTER 

PACPTR 

PACKB- 1 /GET CHARACTER 



/SHIFT A POSITIONS TO LEFT 
PACKB- 1 /SAVE TEMPORARY 
PACKB- 1 

C7400 /KILL BITS 4-11 

PACPTR 

PACPTR /INSERT IN BUFFER 
PACPTR /INCREt-lENT ADDRESSPOINTER 
PACKSW /INCREMENT PACKSWITCH 
PACKB1+3/AGAIN IF PACKSWITCH NONZERO 
PACEND 

/TEST FOR BUFFER END 



CLL 



CLA 



PACPTR 

/SKIP IF FULL 
PACKB2 
PACBEG /INITIALIZE POINTER 



PACPTR 

PACKB 
CURFLD 
I PACKB 



/NORMAL RETURN 



PACPTR* BUFBEG 

PACKSW, 

PACBEG, BUFBEG 

PACEND* BUFEND 

C7400, 7400 
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/ UNPACK A CHARACTER FROM A BUFFER IN OS/8 FORMAT 0^^ 

/ 

/ CAN BE USED FOR BUFFERS UP TO 31 PAGES 

/ (NOT USING LAST PAGE OF FIELD) 

/ 

/ PARAMETERS ARE: 

/ CURFLD: FIEi-D OF SUBROUTINE 

/ BUFFLD: FIELD OF BUFFER 

/ BUFBEG, BUFEND; DEFINE SIZE OF BUFFER 

/ 

/ CALL : CLA 

/ JMS UNPACK 

/ RETURN; IF LINK=1: BUFFER EMPTY 

/ IF LINK=0S NORMAL RETURN 

/ 

/ RETURNS WITH CHARACTER IN AC 

/TEMPORARY STORAGE 
UNPACK* . .-. 

TAD UNPSW /TEST PACKS WITCH 

CDF BUFF-LD 

SZA CLA 

JMP UNPACl /IF -8 

TAD I UNPPTR /GET FROM BUFFER 

AND C377 /KILL BITS 0-3 

DCA UNPACK- 1 /SAVE TEMPORARY 

TAD UNPPTR /IS POINTER EVEN ? 

CLL RAR 

SNL CLA /SKIP IF NO 

JMP .+4 

CLA CLL CMA i^L /SET PACKSWITCH TO -2 

DCA UNPSW 

SKP /NO INCREl^ENT 

ISZ UNPPTR 

JMP UNPAC2 /GO TO EXIT 

LEsJPACU DCA UNPACK- 1 /MAKE TEMP. LOCATiaM ZERO 

TAD I UNPPTR /GET WORD 

AND C7400 /KILL BITS A-\l 

TAD UNPACK- 1 

CLL RTR 

RTR 

DCA UNPACK- 1 /SAVE TEMPORARY 

CLA CMA 

TAD UNPPTR /DECREMENT POINTER 

DCA UNPPTR 

ISZ UNPSW /INCREMENT PACKSWITCH 

JMP UNPACl + I /AGAIN IF NONZERO 

CLA CLL CML I AC FiAL 

TAD UNPPTR 

DCA UNPPTR /POINTER +3 

TAD UNPEND /TEST FOR BUFFER END 

CMA CLL 

TAD UNPPTR 

SNL CLA /SKIP IF EMPTY 

JMP UNPACe 
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TAD 
DCA 
SKP 
UNPAC2* CLL 
TAD 
CDF 
JMP I 



UNPBEG /INITIALIZE POINTER 
UNPPTR 

/LIMK=1 

A\10KMAL liETUFiN 
UNPACK- 1 /GET CHARACTER 
CURFLD 
UNPACK 



UNPPTR> BUFBEG 

UNPSW, 

U'>JPBEG> BUFBEG 

UNPEN D* BUFBNiD 

C377* 377 

C7/100* 7400 
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/ PARITY GENERATOR 0H7 

/ 

/ GeJERATES ODD OH EVEi>J PARITY BIT (8TH BIT) 

/ 

/ CALL: TAD CHAR 

/ JMS PARITY 

/ RETUHiM (WITH CHARACTER IN AC) 

/CHARACTER TEi^PORARY 

/PARITY SUM 
PARITY* .-. 

AND CI 77 /KILL 8TH BIT 

DCA PARITY- 2 

DCA PARITY-1 

TAD PARI TY-2 /GET CHARACTER 

PARITl* CLL RAR 

SZL /TEST BIT 

ISZ PARITY-1 

SZA /NEXT BIT ? 

JMP PARITl /YES 

.TAD PARITY-1 /GET PARITY SUM 

RAR 

SZL CLA /FOR EVEN PARITY; 

/ IF ODD PARITY: SNL CLA 

TAD C200 /SET PARITY BIT 

TAD PARITY-2/GET CHARACTER AND 

JMP I PARITY / RETURN 

CI 77* 177 

C200, 200 
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/ SKIP ON FLAG WITH TIMED OUT RETURN 0^ <^ 

/ 

/ CALL: CLA 

/ JMS SKFOUT 

/ TIME OUT (IN MILLISECONDS) 

/ SKIP INSTRUCTION 

/ TIMED OUT RETURN 

/ NORMAL RETURN 










/TIMER 1 









/TIMER 2 




-14C 


1 


/PRESET TIMER 2 (ADJUST FOR 1 MILLISE 


SKPOUT, 


• "" • 








TAD 


I 


SKPOUT /GET PRESET TIMER 1 




CIA 








DCA 




SKPOUT-3 




ISZ 




SKPOUT 




TAD 


I 


SKPOUT /GET SKIP INSTRUCTION 




DCA 




SKP0U2 




ISZ 




SKPOUT 


SKPOUl, 


TAD 




SKPOUT- 1 




DCA 




SKPOUT- 2 /SET TIMER 2 


SKP0U2* 







/OVEP.LAID BY SKIP INSTRUCTION 




JMP 




. + 3 




ISZ 




SKPOUT /SKIPPED ! 




JMP 


I 


SKPOUT 




ISZ 




SKPOUT- 2 /OVERFLOW TIMER 2 ? 




JMP 




SKP0U2 /NO 




ISZ 




SKPOUT-3 




JMP 




SKPOUl 




JMP 


I 


SKPOUT /TIMED OUT 
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/SEARCH A LIST FOR A MATCH 

/THE ROUTINE SEARCHES IN A LIST FOR A MATCH WITH AC 

/IT HAS TWO RETURNS : FOUND AND NOT FOUND; 

/BOTH WITH AC=0. THE LIST TERMINATOR IS ALSO 0. 

/THE FIRST ELEMENT HAS ELEMENTNUtMBER 



0-49 



/ 
/ 
/ 
/ 
/ 



TAD (ELEMENT 
JMS SORTC 
LIST-1 
NOT IN LIST RETURN 
NORMAL RETURN 



/AC=0 
/AC=0 



/LIST* 301>302*303>304j 



0/ZERO IS TERMINATOR 



SORTCN, /COUNTER CAN BE ON PAGE 

/POINTER 

/- AC 

SORTC* .-. /TEST FOR CHAR. IN LIST 

CIA 

DCA SORTC- 1 /SAVE -AC 

DCA SORTCN /CLEAR COUNTER 

TAD I SORTC /GET AR61 

ISZ SORTC /FOR CORRECT RETURN 

DCA SORTC-8 /SAVE POINTER 

ISZ SORTC-2 /POINTER+1 

TAD I SORTC-8 /GET LIST ELEMENT 

ISZ SORTCN 

SNA /ZERO? 

JMP I SORTC /YES* ELEMENT NOT FOUND 

TAD SORTC- 1 /COMPARE 

SZA CLA /EQUAL? 

JMP .-7 /NO* TRY NEXT ELEMENT 

ISZ SORTC /YES* SET UP RETURN 

JMP I SORTC /AC=0 



30 



/LIST SEARCH* CROSS FIELD CALLABLE 
/THE ROUTINE MATCHES THE AC AGAINST ALL ELEMENTS 
/OF A LIST. IN CASE OF A iMATCH IT TAKES THE NORiMAL 
/RETURN WITH THE OFFSET IN THE LIST IN THE AC 
/IN CASE IT ENCOUNTERS A 0000 IN THE LIST* IT 
''TAKES THE ERROR RETURN* ALSO WITH OFFSET IN AC 
/THE LIST IS ASSUMED TO BE IM FIELD OF CALL. 
/IN THE EXAMPLE: EL E(vl EN T 301 HAS OFFSET 

/ TAD (AC 

/ CIF 

/ JMS LIST 

/ LST-. /MARK THIS Ca^JSTRUCTI ON! ! ! 

/ NOT IN LIST RETURN /AC=OFFSET IN LIST 

/ NOPJ^AL RETURN (FOUtMD) /AC= OFFSET IN LIST 

/LST* 30i;302;303;30^i0 /ZERO IS TERMINATOR!!! 

/OFFSET COUNTER 

/POINTER 

/-AC 

LIST* 

CIA 

DCA LIST-1 

CMA /NOTE! COUNTER OVERFLOWS INSTANTLY 

DCA LIST-3 /CLEAR OFFSET COUNTER 

TAD I LIST /MAKE ARG ABSOLUTE 

TAD LIST 

DCA LIST-2 

ISZ LIST /FOR RETURN 

LISTl* ISZ LIST-3 

ISZ LIST-2 

TAD I LIST-2 

SNA /ZERO? 

JMP LISTR 

TAD LIST-1 

SZA CLA /MATCH FOUND? 

JMP LISTl /N 

ISZ LIST 
LISTR* RDF 

TAD C6203 

DCA .+2 

TAD LIST-3 



JMP I LIST 



0S0 
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/RELATIVE BRAN CHERi CROSS FIELD CALLABLE 



0Sa„ 



/THIS BFIANCH ROUTINE CAN BE 
/IT ASSUMES THE LIST IN THE 
/DESTINATION ADDRESSES TOO. 
/DISTANCES AND IS THEREFORE 
/CATABLE PROGRAMS. 



CALLED FROM ANY FIELD. 
FIELD OF CALL* AND THE 
IT WORKS WITH RELATIVE 
USEFUL FOR RUNTIME RELO- 



/ 


TAD (AC 




/ 


GIF 


/IF BRANCH RESIDES IN FIELD 


/CALL* 


JMS I (BRANCH 




/ 


LIST-.-l 


/RELATIVE DISTANCE TO LIST 


/ 


NOT IN LIST RETURN /AC=0 


/LIST* 


215*CR-. 




/ 


212*LF-. 




/ 


37 7; RUB-. 




/ 





/ZERO IS TERMINATOR !!!! 







/TEMP AC* NEGATIVE 







/POINTER 


BRANCH* 


CIA 


/ENTER WITH AC= ELEMENT 


■ 


DCA BRANCH- 2 
TAD I BRANCH 






TAD BRANCH 


/MAKE POINTER ABSOLUTE 




DCA BRANCH- 1 






ISZ BRANCH 


/FOR RETURN 


BRANl* 


ISZ BRANCH- 1 






TAD I BRANCH- 1 


/FETCH ELEMENT 




SNA 


/IS IT 0?(END OF LIST) 




JMP BRANR 


/Y 




TAD BRANCH- 2 






ISZ BRANCH- 1 






SZA CLA 


/MATCH? 




JMP BRANl 


/N*LOOP 




TAD I BRANCH- 1 


/PICK DISTANCE TO DESTINATION 




TAD BRANCH- 1 


/MAKE ABSOLUTE 




DCA BRANCH 




BRANR* 


RDF 

TAD C6203 

DCA .+1 


JMP I BRANCH 


/FIX FIELD AGAIN* AND JIMP 






C620 3* 


620 3 
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/GENERAL SETUP FOR 0S8 HANDL.ERS 

/ENTER WITH LINK=1 FOR READ OiNJLY DEVICE 

/LINK =0 FOR WRITE ONLY DEVICE 

/ONLY APPLIES TO NON-BLOCK- ORI ENTED DEVICES. 

/IT CREATES A WORDCOUNT(WC) SET TO -WORDCOUNT-1 

/AND A START ADDRESS OF BUFFER (CA), 

/AND A CDF TO THE BUFFER FIELD IN 'SETCDF'. 

/•ENTRY* IS THE ENTRYPOINT OF THE HANDLER. 

/IT LEAVES THE SUBROUTINE WITH 'ENTRY' POINTING 

/TO 'STARTING BLK #' FOR BLOCK ORIENTED DEVICES* 

/AND DATAFIELD STILL SET TO FIELD OF CALL. 



0S2. 





7 700 






70 






TEM=. 








SETUP* 











RDF 




/SET UP RETURN 




TAD 


C6203 






DCA 


XIT+2 






TAD 


I ENTRY 






AND 


SETUP- 1 


/70 




TAD 


SETCD 


/MAKE CDF 


* 


DCA 


SETCDF 


/FIELD OF BUFFER 




RAR 




/GET LINK 




TAD 


I ENTRY 


/GET FUNCTION WORD 




isz; 


ENTRY 






SPA 




/CHECK BEAD/WRITE 




JMP 


ERR 


/UNRECOVERABLE ERROR 




AND 


SETUP-2 


/7700 




CLL 


CML CMA HAL 


/MAKE -WORDCOUNT-1 




DCA 


wc 






TAD 


I ENTRY 






ISZ 


ENTRY 






DCA 


CA 


/CURRENT ADDRESS 




JMP 


I SETUP 




ERR* 


CLA 


CLL CML RAR 


/SIGNAL "PERMANENT I 


XI T* 


ISZ 


ENTRY 






ISZ 


ENTRY 











/CDF CIF 




JMP 


I ENTRY 





ERROR' 



SETCD* CDF 

C6203* CDF CIF 

CA* 

WC* 



/SaMEWHERE IN HANDLER 
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/UNPACK CHAR BY CHAR ROUTINE FOR 0S8 HANDLERS. 
/NEEDS A WORDCOLR^T SET TO - WORDCOWT- U AND A POINTER 
/SET TO CURRENT ADDRESS (BEGIN OF BUFFER). 
/AT THE VERY FIRST ENTRY: PACKSWI TCH SHOULD BE 0. 
/THE WORDCOUNT IS INCREMENTED EVERY 3 CHARACTERS. 
/IF THE BUFFER IS EXHAUSTED^ THE ROUTINE JIMPS TO XI T. 
/IT EXITS WITH THE'DATAFIELD STILL SET TO THE 
/FIEI-D OF BUFFER 



053 



PACKSW> 



7 400 
377 



/PACKSWI TCH. P OS. MEANS L.S. 8 BITS 
/NEC. MEANS MOST SI GN /t AND 4 BITS. 



UMPACK, 
SETCDF, 



C7 600J 




TAD PACKSW 
SPA 
JMP 
SZA 
CLA 
DC A 
ISZ 
TAD 
AND 
ISZ 
ISZ 
JMP 
7600 

DCA PACKSW 
JMP XI T 



/ENTER WITH AC=0 
/SET TO CDF X BY 



UNPl 

CLL CMA RTL /AC=-3 

PACKSW 

PACKSW 

I CA 

UNPACK- 1 

CA 

WC 

I UNPACK 



/PACKSW IS -2 0R 
/FETCH LS 8 BITS 

/FOR NEXT 



SETUP ROUTINE 



+ 1 



/EXIT 

/CLA 

/RESET 



WITH NEXT CHAR IN AC 



PACKSWI TCH FOR NEXT ENTRY 



IJ^Pl 



TAD 

DCA 

CLL 

DCA 

TAD 

AND 

TAD 

RTL 

RTL 

ISZ 

ISZ 

JMP 

RAL 

JMP 



CA 
CA 

TEM 
I CA 

UNPACK- 2 
TEM 



CA 

PACKSW 
UNPl + 3 

I UNPACK 



/SET POINTER BACK 



/LOOP 2 TIMESiALSO SETS PACKSW=0 



CA> 
0/C* 
TEM, 









/TEMP. LOCATION, SOMEWHERE IN HANDLER 
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/LNPACK CHAR BY CHAR ¥ Oh 0S8 HAiXiDLERS* 

/ROUTINE UNPACKS AN OSS FORMAT ASCII BUFFER CHARACTER 

/r3Y CHARACTER* IT NEEDS A POINTER (CA) SET TO THE 

/BEGINNING OF THE BUFFER> AND A WORDOUNT (WC) SET 

/TO - THE NUMBER OF WORDS IN THE BUFFER -1. 

/THE LOCATION 'SETCDF* ^EEDS TO BE SET TO THE FIELD 

/VJHERE THE BUFFER RESIDES* 

/THE PACKSWITCH HAS 3 VALUES: FOR THE FIRST OF 3 CHARS< 

/I FOR THE SECOND^ AND 2 FOR THE 3RD* 

/THE PACKSWITCH SHOULD BE WHEN ENTERED FOR THE FIRST 

/TIME. THE ROUTINE LEAVES THE DATAFIELD TO THE FIELD 

/OF BUFFER UPON EXIT. IF BUF Ei^iPTY THEN JU14P TO 'XIT'. 



0S^ 



PACKSW> 







/0> 1 * OR 2 




74S00 






377 






UNPACK^ 


• • • 




/ENTER WITH AC=0 


SETCDF, 


CDF 


/OVERLAID 




TAD 


PACKSV/ 






RAR 








SZL 




/I? 




JMP 


UNP2 


/Y 




sz;a 


CLA 






JMP 


UNP3 


/2 


UiMPl, 


TAD 


I CA 






AND 


UNPACK- g 






CLL 


RTR 






DCA 


TEM 


/BYTE 3 ALREADY PARTLY PREPi 




TAD 


1 CA 






AND 


UNPACK- 1 






ISZ 


CA 






ISZ 


PACKSW 






ISZ 


WC 


/INCR. TWICE, EVERY 3 BYTES 




JMP 


I UNPACK 




C7600> 


7600 


/CLA 




JMP 


'XI T 




UNP8> 


TAD 


I CA 






AND 


UN PACK -2 


/PREPARE 3RD BYTE 




CLL 


RTR 






RTR 








RTR 








TAD 


TEM 






JMP 


UNPl + 2 




UNP3> 


DCA 


PACKSW 


/PREPARE FOR NEXT ENTRY 




TAD 


TEM 






JMP 


I UNPACK 




TEM, 







/SOMEWHERE IN THE HANDLER 


CA, 









¥C, 
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/Ui>JPACK AND PRINT 058 BUFFER; IN HANDLER 

/THIS PROGRAM PART IS USEFUL FOR HANDLERS THAT HAVE 

/AN OUTPUT ROUTINE THAT LEAVES BITS 0-3 AS THEY 

/ARE. THE WORDCOUNT (WC) SHOULD BE SET TO -WORDCOUNT/2 

/AS IT INCREMENTS EVERY f> LOCATIONS C3 BYTES). 

/THE ROUTINE IS ENTERED AND EXITED WITH THE DATAFIELD 

/SET TO THE FIELD OF BUFFER. 

/FIRST BYTE 



(^^S 



UNP* 


TAD 


I CA 




ISZ 


CA 




JMS 


OUTPUT 




AND 


C7400 




DCA 


TEM 




TAD 


I CA 




ISZ 


CA 




JMS 


OUTPUT 




AND 


C7400 




CLL 


RTR 




RTR 






TAD 


TEM 




RTR 






RTR 






JMS 


OUTPUT 


C7600, 


7602 


1 




ISZ 


WC 




JMP 


UNP 




JMP 


XIT 


TEM, 







CA, 







WC* 







C7400, 


7400 





/2ND BYTE 



/3RD BYTE 



/SOMEWHERE IN HANDLER 
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/PUSH AND POP OPERATORS 

/THE ROUTINES CAN OPERATE ON DIFFERENT STACKS 

/WHICH ARE POINTED TO BY THE ARGUMENT. 

/CONVENTION IS THAT THE POINTER ALWAYS POINTS TO 

/AN ELEMENT* UNLESS COUNT=0* 7HiM IT POINTS TO 

/ITSELF. 

/ 

/ TAD (AC 

/ JMS PUSH 

/ STACK 

/ FULL RETURN* AC=0 

/ NORMAL RETURN* AC=0 
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/STACK* -21 

/ 

/ 

/ 1 

/ 2; 3; 4. 



/-MAX SIZE OF STACK=21C8) 
/COUNTER OF ELEMENTS* = EMPTY 
/POINTER* SET TO CURRENT LOC. 
/FIRST ELH^iENT 
(LAST ELEMENT) 







/TEMP. POINTER 



PUSHj 



DCA 


P OPT EM 


/SHARED LOCATI ON 


TAD 


I PUSH 


/SAVE PTR 


ISZ 


PUSH 




DCA 


PUSH-1 




TAD 


I PUSH-1 


/STACK FULL? 


ISZ 


PUSH-1 




TAD 


I PUSH-1 




SMA 


CLA 




JMP 


I PUSH 


/YES* FULL RETURN 


ISZ 


I PUSH-1 


/COUNT+1 


ISZ 


PUSH-1 




ISZ 


I PUSH-1 


/POlNTER+1 


TAD 


I PUSH-1 




DCA 


PUSH-1 


/POINTER FETCHED 


TAD 


POPTEM 


/DEPOSIT IN STACK 


DCA 


I PUSH-1 




ISZ 


PUSH 




JMP 


I PUSH 





37 



/THE POP OPERATION FETCHES ONE WORD FROM THE 
/STACK. 



(COMTIMUED) 



/ 
/ 
/ 
/ 

POPTEM^ 



POP J 



JMS POP 
STACK 

EMPTY RETURN 
NORMAL RETURN 




777' 



• "" • 

TAD 

DCA 

ISZ 

ISZ 

TAD 

SNA 

JMP 

TAD 

DCA 

ISZ 

TAD 

DCA 

TAD 

DCA 

TAD 

TAD 

DCA 

TAD 

ISZ 

JMP 



I POP 

POP-1 

POP 

POP-1 

I POP-1 

SPA 

I POP 

POP-g 

I POP-1 

POP-1 

I POP-1 

PUSH-1 

I PUSH-1 

POPTEM 

PUSH-1 

POP- 8 

I POP-1 

POPTEM 

POP 

I POP 



/POINTS TO STACK 

/AC=0 

/AC=H^EMENT 



/TEMP. POINTER 



/SET UP PTR TO STACK 



/COUNT=0?BUF EMPTY? 

/YES* EMPTY RET. 
/DECREMENT COUNT 

/POINTS TO PTR 



/FETCH ELEMmvJT 
/DECREMENT PTR 

/EXIT WITH ELEMENT IN AC 
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/ULL A ROTATING BUFFEH QUEUE 

/FILLO ISA ROUTINE THAT PUTS THE AC IN THE NEXT 
/FREE LOC.IN THE BUFFER. THE CWCEPT IS THAT THE ROU- 
/TINE CAN BE USED FOR VARIOUS BUFFERS. EACH BUFFE,R 
/CARRIE;S ITS OWN ADMINISTRATION DATA. 



057 



/ 
/ 
/ 
/ 
/ 



JMS FILLQ 
BUF 
FULL RETURN 

NORMAL RETURN 



/AR6 POINTS TO BUF BOOKKEEPER. 
/AC=0 IF ELEMENT STILL ACCEPTED 
/AC UNEQ IF NOT ACCEPTED 
/AC=0 



FILLO* 



FILLQl, 



FILLQ2* 



FILLQ3> 







• •• • 

DCA 

TAD 

ISZ 

DCA 

TAD 

DCA 

ISZ 

TAD 

CIA 

TAD 

lAC 

SMA 

JMP 

SZA 

ISZ 

ISZ 

ISZ 

ISZ 

ISZ 

TAD 

CIA 

TAD 

SMA 

JMP 

TAD 

TAD 

DCA 

TAD 

DCA 

JMP 

lAC 

DCA 

JMP 

CLA 

TAD 

JMP 



FILLQ- 1 
I FILLQ 
FILLQ 
FILLQ-2 
I FILLQ-2 
FILLQ-3 
FILLQ-2 
FILLQ-3 

I FILLQ-2 

SZA 

FILLQ3 

CLA 

FILLQ 

I FILLO-2 

FILLQ-2 

FILLQ-2 

I FILLQ-2 

FILLQ-3 

I FILLQ-2 
SZA CLA 
FILLQ2 
I FILLQ-2 
FILLQ-2 
FILLQ-3 
FILLQ- 1 
I FILLQ-3 
I FILLO 

I FILLQ-2 
FILLQ 1 

FILLQ-1 
I FILLQ 



/SAVE SIZE 

/POINTER IN BUFBOOKKEEPER 

/SAVE AC 

/ENTER WITH THE ELEMENT IN THE AC 

/SAVE AC 

/ARGUM. POINTS TO BUF 

/FOR RETURN 

/SAVE SIZE 



/AC=-SIZE+C0UNT+1 



/BUF FULL* AC NOT ACCEPTED 

/FOR NORMAL RETURN 
/COUNT+1 

/FOR PTR2 
/PTR2+1 
/-SIZE+PTR2> = 0? 



/NO, WRAP AROUND 

/YES* COMPUTE REAL ADDR 

/PTR2+ •PTR2 • 



/DEP IN BUF 



/PT]i8=l 
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FILL A RorAr/N(q: buffer q 



0S-7 



ReruRM 



< 



r^FlLt-Q ^ 



SUF 



SAVE AC 



SAVE SIZE: 



Si2e 

CO UNIT 

?rRZ 
2 



r^ 



/eMPTV PTR 
/PII_L PTK 







TAD Ac J — ^ i^erufSN ") 



/full rbtuRM -j, Acf <zJ 



CoUAJTb 




FlLLQl - 



TIE ADDRESS 



/^ c 
THeRE^ 






/Full ReruRM ; Ac=i^ 
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/RESET A ROTATING BUFFER QUEUE 

/CLEAR THE BUFFER BY SETTING COUNT=0* AND MOl'ING POINTERS 

/TO THEIR INITIAL POSITI ttNJ .< SYMMETRICALLY ) 



05rg 



/BUF, 16 /MAX. SIZE OK BUFFER; SPECI FI ED HERE 

/ /COUNTS # OF ELEMENTS IN BUF 

/ 1 /EMPTY POINTER(PTRl ) SET TO FIRST ITEM 

/ 16 /FILL P0INTER(PTR2) SET TO END OF BUF 

/ ZBLOCK 16 /THE ACTUAL BUFFER AREA 



CLRQj 






• "• • 

TAD 
DCA 
ISZ 
TAD 
DCA 
ISZ 
DCA 
ISZ 
lAC 
DCA 
ISZ 
TAD 
DCA 
JMP 



I CLRQ 

CLRQ-1 

CLRQ 

I CLRQ-1 

CLRQ-S 

CLRQ-1 

I CLRQ-1 

CLRQ-1 

I CLRQ-1 
CLRQ-1 
CLRQ-S 
I CLRQ-1 
I CLRQ 



/SAVE SIZE 

/BUFPTR 

/EiMTER WITH AC=0 

/GET POINTER TO BUFBOOKKEEPER 

/FOR RETURN 
/SAVE SIZE 

/FOR COUNT=0 



/PTK1=1 



/PTR2=SIZE 
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/FETCH THE NEXT ITEM FPiOM THE HEAD OF THE Q. 

/ 

/ 

/ 
/ 



iMTQj 



MTQ 2 J 



MTOl. 



JMS 


MTQ 
BUF 




EMPTY RETURN 


NORMAL RETURN 


\NDS 


FOR EMPTY 























• • • 






TAD 


I MTQ 




DCA 


MTQ-1 




TAD 


I MTQ- 


■1 


DCA 


MTQ-2 




ISZ 


MTQ 




ISZ 


MTQ- I 




CMA 






TAD 


I MTQ- 


'1 


SPA 






JMP 


MTQl 




DCA 


I MTQ- 


■1 


ISZ 


MTQ-1 




lAC 






TAD 


I MTQ- 


•1 


TAD 


MTQ-l 




DCA 


MTQ- 3 




TAD 


I MTQ- 


•3 


DCA 


MTQ-3 




ISZ 


I MTQ- 


1 


TAD 


I MTQ- 


1 


CIA 






TAD 


MTQ-2 




SMA 


CLA 




JMP 


MT02 




lAC 






DCA 


I MTQ- 


1 


TAD 


MTQ-3 




ISZ 


MTQ 




JMP 


I MTQ 




CLA 






JMP 


I MTQ 





0S<^ 



/POINTER TO BUFFER 

/AC=0 

/A C= ELEMENT 



/SAVE ELEMENT 

/BUF SIZE 

/POINTER IN BUFBOOKKEEPEK 

/ENTER WITH AC=0 

/PTR TO BUFBOOKKEEPEK 

/SAVE SIZE 

/FOR RETURN 

/COUNT- 1<0? 

/YES>BUF EMPTY 
/C0UNT=C0UNT-1 

/COMPUTE REAL ADDRESS 
/PTR1+ 'PTRl '+1 

/SAVE 

/FETCH THE ELEMENT 

/SAVE 

/PTR1=PTR1 + 1 

/-PTR1 + SIZE<0? 



/YES* UPDATE PTRl 

/PTR1 = 1 
/EI.EMENT IN AC 



/•EMPTY' RETURN 
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E-NAPT Y A ROTAfiMSf BUFFER Q OEUe 



0sg 



€X.ANAPLe : 
S\2E= Ad?6o) 



PT1?E 



PfRI 



J. 4 

nnirjTTxxn 

p^^^ EMPTY ;COUWT=^ 

rrRz 

i OOUMT= ^ 

Hunuxn 



FIRST BL-H-f^ENyr 

ptR'\ pxnz 

PTR^ 







Ill 

Fetch ^ 
SAVE BtlF 

Size 

" VZ"' 







/EMPTY 



COUWT-1 

.. :c:„ 

THE A&&OL- 
UTK A^DBeS$ 



: :iz: 

kigntt from 
reMP' 

" r ■ 

ff-TRA •= I 



NAT^>2, 




(j^ETlARN^ 
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/COMBINED ROTATIMG BUFfER OPERATORS* CROSS FIELD CALLABLE. 
/TiA/O SUBROUTINES HAVE BEEN PUT TOGETHER IN ORDER TO 
/SAVE SPACE. FILLQ PUTS AN ELEMENT INTO THE BUFFER* 
/AND MTQ TAKES ONE FROM THE BUFFER. EACH BUFFER HAS ITS 
/OWN ADMINI STRATI Q\i> WHICH MAKES THE ROUTINES USEFUL FOR 
MULTIPLE BUFFERS WITH EACH ITS OWN LENGTH AND CONTENTS. 
/WHEN USING THE ROUTINE CROSS FIELD IT ASSUMES THE BUFFER 
/IN THE FIELD OF CALL. THE ARGUMENT IS RELATIVE* SO THE 
/ROUTINES CAN BE USED IN A RELOCATABLE ENVIRONMENT. 
/POINTERS ARE ALSO RELATIVE. 
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/THIS IS WHAT THE BUFFER LOOKS LIKE: 

/BUF* 16 /MAX. SIZE OF BUF. HERE THE BUF IS 

/ /COUNTER OF ELEMENTS IN THE BUFFER 

/ /'READ* POINTER*USED BY MTQ 

/ /'WRITE* POINTER* USED BY FILLQ 

/ ZBLOCK 16 /THE ACTUAL BUFFER AREA 

/NOTE THAT THE BUFFER SHOULD BE SET UP AS ABOVE. 



16 LONG 



/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 



TAD ELEMENT 
GIF M0NF1.D 
JMS I (FILLQ 
BUF- . 
BUFFER FULL RETURN /AC = MEANS THAT THE ELEMENT 

/HAS BEEN ACCEPTED (THE VERY LAST ONE) 
/AC=e.EMENT MEANS NOT ACCEPTED! 
NORMAL RETURN /AC=0 



OSIZE, 

QPTR* 

C6203* 





6203 



/SIZE OF BUF SAVED HERE 

/POINTER IN ADMINISTRATION OF BUFFER. 



FILLQ* 



FILLOR* 



JMS SETFIL 

TAD I QPTR 

CMA 

TAD QSIZE 

SPA 

JMP FILLQR-1 

SZA CLA 

ISZ FILLQ 

ISZ I QPTR 

ISZ QPTR 

JMS QWRAP 

TAD QAC 

DC A I QPTR 

CLA 


JMP I FILLQ 



/INITIAL SETUP* COt^M ON FOR BOTH. 
/BUFFER FULL? 

/SIZE-COUNT-1 

/BUF FULL;AC not ACCEPTED 

/BUF ok; NORMAL RETURN 
/COUNT+1 

/INCREMENT POINTER AND/OR WRAP 
/DEPOSIT 
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SETFIL> .-. 




/Ca^iMOiM SETUP 


DCA 


QAC 




TAD 


I FILLQ 


/GET ARGUMENT 


TAD 


FILLQ 


/MAKE ABSOLUTE 


DCA 


QPTR 




TAD 


I QPTR 


/SAVE SIZE 


DCA 


QSIZE 




RDF 




/FOR RETURN 


TAD 


C6203 




DCA 


FILLQR 




ISZ 


QPTR 


/-> COUNT 


ISZ 


FILLQ 


/-> ERROR RETURN 


JMP 


I SETFIL 





/INCREMENT POINTER* AND TEST FOR END OF BUFFER. 
/ELSE WRAP-AROUND. RETURN WITH QPTR POINTING TO 
/BUFFER LOCATION 



THE ABSOLUTE 



QW.RAPj 



QWRl. 



ISZ 
ISZ 
TAD 
CIA 
TAD 
SMA 
DCA 
TAD 
TAD 

lAC 
DCA 
JMP 



OPTR 
I QPTR 
QSIZE 

I QPTR 

CLA 

I QPTR 

I QPTR 

QPTR 

QPTR 

I OWRAP 



/ALSO COMMON INSTRUCTION 
/TRY NEXT LOC. IN BUF 
/BEYOND SIZE? 



/WRAPS AROUND 

/COMPUTE ABSOLUTE ADDRESS 



/FETCH THE NEXT ITEM FR(M THE ROTATING BUFFER 

/ CIF MQMFLD 

/ JMS I (MTQ 

/ BUF- . 

/ EMPTY RETURN 

/ NOPilAL RETURN 



/AC=0 

/A C= ELEMENT 



0AC=. 
MTQ* 



/TO SAVE SPACE 



TAD 

DCA 

JMS 

CMA 

TAD 

SPA 

JMP 

ISZ 

DCA 

JMS 

ISZ 

TAD 

JMP 



MTQ 

FILLQ 

SETFIL 

I QPTR 

FILLQR- 1 

FILLQ 

I QPTR 

QWRAP 

QPTR 

I QPTR 

FILLQR 



/DO COMMON SETUP 
/COUNT- 1<0? 

/Y* BUf EMPTY 

/FOR NORMAL RETLIRN 

/N> CONFIRM 

/INC POINTER ETC. 

/READ POINTER CQMES 

/FETCH 



EARLIER. 
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/BINARY LOADER SUBROUTINE 

/THIS BINARY LOADER IS MUCH DIFFERENT FROM THE STANDARD 

/ONE . IT WAS DESIGNED ON THE CONCEPT OF A MECHANISM 

/THAT FREES THE PROGRAMMER FROM THE CUMBERSOME BINARY 

/FORMAT PECULIARITIES. THE PROGRAM HEADS BINARY 'TAPE* 

/FROM AN INPUT DEVICE AND PRODUCES 3 PARAMETERS OF 

/INTEREST: THE LOAD POINTER 'BINPC S THE LOAD FIELD •BINFLD' 

/AND THE CONTENTS OF THE DATA 'BINAC*. THE USER CAN 

/TEST FORMATS AND BOUNDARIES^ AND HAS TO DEPOSIT THE 

/DATA HIMSELF. 

/DURING LEADER PHASE THE ROUTINE IGNORES BOTH LEADER 

/AND BLANK CODE. A JMS TO BINL WITH AC UNEQ ALSO 

/RESETS ALL PARAMETERS AND RETURNS TO LEADER MODE. 
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/THE BINARY FORMAT TAPE HAS 3 PHASES: 

/PHASE 1 (LEADER PHASE) CODES 200 OH 000 

/PHASE 2 (ORIGINS^DATA AND FIELD SETTINGS) 

3X0 /FIEJLD SETTING TO FIELD X;ADDS NOT TO CHECKSIM 

2XX;0YY /ORIGIN SETTING TO PC=XXYY; ADDS TO CHECKSUM 

/ .0XX;0YY /DATA ELEMENTS XXYYJADD TO CHECKSUM 

/ 0XX;0YY /CHECKSUM XXYY> RIGHT BEFOR THE STOP SIGN 

/PHASE 3 (THE STOP SIGN) IS ALSO ONE 200 CODE 



/HOW TO 

/START^ 

/ 

/ 

/ 
/ 

/ 
/TEM> 

/ 

/ 



USE THE ROUTINE AS A STANDARD BINARY LOADER 
JMS BINL 

HLT /EOT return; AC=0 

HLT /READY RETURN; AC=DI FFERENCE IN CHECKSUyiS 
TAD BINFLD /AC=0; NORMAL RETURN 

TEM 
BINAC 



DCA 

TAD 



DCA 

JMP 



I BINPC 
START 



BINC> 

BINPH> 

BINPC> 

BINAC> 

BINFLD^ 

CHKSUM> 

CHKTEM^ 



-100 

-300 

6201 

-200 

77 



















/CCWSTANTS 



/MASK 

/PHASE FLAG* 0=L EADER> P 0S= ORI GI N; N EG= DA TA 

/LOAD POINTER 

/DATA TO BE DEPOSITED IN LOADPOiNT 

/FIEi^D INTO milCU TO LOAD 

/COMPUTED CHECKSUM 

/CHECKSUM OVER 2 FRAMES 

/FP_AME 2 

/FRAME 1 



BINL> 



BIN2j 



SZA CLA 

JMP BIN3 

TAD BINPH 

SNA CLA 

JMP BINS 



/AC UNEQ TO RESET ALL PARAMETERS 

/ARE WE IN LEADER PHASE? 
/Y 
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BIlNJ^j 



TAD 
TAD 
SMA 
JMP 
TAD 
TAD 
SMA 
lAC 
DCA 



BINL-1 

BIi\lC-3 

CLA 

BIN6 

BINL-1 

BINC-4 



BINPH 



/N, IS FRAME 1 = FT EJ-.D? 

/-300 

/Y/SLT FIELD 

/IF 100-177 MAKE PHASE GT 

/ly 000-0 77 MAKE PHASE NEG 

/TO AVOID AG=0 



/ASSEMBLE 6 M.S. BITS 
TAD BINL-1 
AND BINC 
CLL RTL 
RTL 
RTL 

DCA BINAC 
TAD BINL-1 
DCA CHKTEM 



IN BINAC AND MAKE TEMP .CHECKSUM 



/MAKE TEMP CHKSLM 



/READ 



/ASSEMBLE 6 
TAD 
AND 
TAD 
DCA 
TAD 
TAD 
DCA 
TAD 
SMA 
JMP 



FRAME 2 

JMS HSREAD 

JMP BINRET+1 
DCA BINL-2 

L.S. BITS AND 

BINL-2 

BINC 

BINAC 

BINAC 

BINL-2 

CHKTEM 

CHKTEM 

BINPH 

CLA 

BIN? 



/EOT RETURN 



UPDATE TEMP. CHECKSUM 



/TEMP CHKSUM 



/ARE WE IN ORIGIN PHASE? 



/Y; PROCESS ORIGIN SETTING 



/READ FRAME 
JMS 



BINRETj 



1 IN ADVANCE; 
HSREAD 
JMP BINRET+1 
DCA BINL-1 
BINL-1 
BINC-1 
CLA 
BIN8 
BINPC 



TAD 
TAD 
SNA 
JMP 
ISZ 
NOP 
TAD 
TAD 
DCA 

ISZ 
ISE 

JMP 



CHKTEM 

CHKSLff^ 

CHKSUM 

BINL 

BINL 

I BINL 



THIS IS FOR DATA Ot>)LY 



/EOT RETURN 



/IS IT 200 C0DE7CST0P COE) 



/Y*END OF DATA 
/NEXT LOCATI ON 
/JUST IN CASE 
/UPDATE CHKSUM 
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/RESET ALL PAMMEtERSF^R START GF NEW DATA TAPE 

BIN3* TAD BINC-2 /CDF 

DCA BINFLD 

DCA CHKSUM /CHKSUM=0 

DCA BINPH /SET TO LEADER PHASE 



BINS* JMS HSREAD 

JMP BINRET 
DCA BINL-1 
TAD BINL-1 
TAD BINC-1 
SNA CLA 
JMP BIN2 
TAD BINL-l 
SNA CLA 
JMP BIN2 
JMP BIN4 



/READ 1 FRAME 
/EOT RETURN 

/IS IT LEADER CODE? 



/Y* PROCEED LEADER LOOP 
/IS IT 000? 

/Y* IGNORE ALSO IF IN LEADER MODE 
/N>CAN BE ORIGIN ONLY 



/MAKE CDF OUT OF FRAME 1 
B1N6> TAD BINL-1 

AND BINC 

TAD BINC-2 /AC=0X0 

DCA BINFLD 

JMP BINS 



/PROCESS ORIGIN SETTING AND LOOK FOR MORE 



BIN7* CMA 

TAD BINAC 
DCA BINPC 
TAD CHKTEM 
TAD CHKSUM 
DCA CHKSUM 
JMP BINS 



/PC-1 

/THIS IS NEW PC 



/UPDATE CHKSUM 



/END OF DATA PROCESSING; COMPARE TWO CHECKSUMS 



BINS* DCA BINPH 

TAD BINAC 
CIA 

TAD CHKSUM 
JMP BINRET 



/SET TO LEADER PHASE 
/TAPE CHKSIW 



/END OF DATA FETUPi-K READY) 
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BfMA^Y '-^^^^^ sufeRour/ME: 



061 



<5^^3 



felNL, 







J 



_5/NI</ , {_■ _^ „ 



e/N PUP = J. 



PINS-/ 





FRAME:! 



J& i-r bR\6rib( 






M.S. B«rs lAI 
MAfcie TEMP. 

crtecksuM 
F^AMee 




j: 






v^eruRjv^ 3^^^^ <^^ 



SET LHAPER 
phased; 
COMPArRg^ 
CHBOteSuN\& 













i::z" 




B.JNPC^ 
fe>/NPC4-± 
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C 



I 



NOR t^/\L 
RerOKN 



D 



/INTERRUPT SERVICE BY LIST LOOK-UP 
/THE ROUTINE TRIES TO IDENTIFY THE INTERRUPTING 
/DEVICE BY LOOKING IN THE SKIP LIST. IF FOUND> IT 
/CLEARS THE HARDWARE FLAG WITH THE INSTRUCTI CXM 
/IN THE CL EARL I ST. THEN IT JU-IPS TO THE LOCATION 
/POINTED TO IN THE JUMP LIST. 

/IT TAKES CARE FOR SPECIAL DEVICES THAT SKIP IF THE 
/FLAG WAS LOW INSTEAD OF HIGH, AS IS NORMALLY THE CASE. 
/THIS IS NECESSARY FOR THE KV8 INTERRUPTBAR. ( 60 51 ) 
/FOR THIS PURPOSE LEAVE OUT BIT ^000Cg051) IN SKIPLST* 
/SKIP LIST ALWAYS TERMINATED BY A ZERO!!!! 
/OTHER LISTS NOT. 



(P62. 



/SKPLST> 
/CLRLST* 
/vMPLST> 
/ 

/*0 JMP 



6031; 6041; 20 51; 6141; 6i5i;0 

6032; 6042; 6052; 61 42; 61 52 

KBDi; tty; intbar;kbd2; tty2 
I .+i;intserv 



INTAC* 
INTLNK> 
INTPTR, 



4000 

SKPLST-1 
CLRLST-SKPLST 
JMPLST-CLRLST 



/AC SAVED HERE 
/LINK SAVED HERE 
/POINTER IN LISTS 



/USED TO FIND LIST 
/TO FIND JUMPLIST 



INTSERV, DCA 
RAL 
DCA 
TAD 
DCA 

INT1# CLA 

ISZ 
TAD 
SMA 
JMP 
DCA 



I NTS J 







JMP 
TAD 
TAD 
DCA 
TAD 
DCA 







TAD 
TAD 
DCA 
TAD 
DCA 
JMP 



INTAC 

INTLNK 

INTSER-3 

INTPTR 

INTPTR 
I INTPTR 

INT2 
. + 1 

INTl 
INTPTR 
INTSER-2 
INTPTR 
I INTPTR 
. + 1 

INTPTR 
INTSER-1 
INTPTR 
I INTPTR 
INTPTR 
I INTPTH 



/SAVE AC AND LINK 

/SET UP POINTER 

/JUST IN CASE 

/GET SKIP INSTR. 

/STPJiNGE SKIP? 

/YES* BIT 4000 WAS LEFT OUT 

/OVERLAID BY SKIP INSTR. 
/DID NOT SKIP 

/l^WERE IS CLEAR INSTR? 

/PICK IT UP 

/OVERLAID BY CLEAR INSTR. 
/WHERE TO GO? 



/JUMP THERE 
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lciT2j SNA /END OF LIST? 

/HALT IF INTERRUPT NOT FOUND 
/SET BIT 4000 

/OVERLAID BY SKIPINSTR. 



SNA 




HLT 




TAD 


INTSER-4 


DCA 


. + 1 





JMP 


INT3 


JMP 


INTl 


CLA 


CLL 


TAD 


INTLNK 


CLL 


EAR 


TAD 


INTAC 


RMF 




ION 




JMP 


I 



EXIT> CLA CLL /JUST IN CASE 
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GcNJeRAL. INreRt^upr &R^/N/oHeH 



06^ 






SET UP 

PoiNreR To 

LIST WITH 

Skip-roT 's 



& 



LT 



UNIDENTIFIED 




^-0 



Reverse 
tNr£7. 



RHrUHN FROM 
iNreRRUPTSHRWCE 

ZIZZ 



ResToF?e 
All 



XOH 



XJONiP 



Y J Normal 

SKIP 







[skiProT I 



WAS set 
sir UP fbiN- 

rER ro UIE.TOF 

CLEAR- lOT's 
AMD PBTCtlv 
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T>0 
CLgAR iroT 



SET UP POJN- 

TER iH Jump- 
list 



■^THERE 



/FIND SMALLEST HOLE IN A LI ST^ JUST BIG ENOUGH* 
/THE ROUTIiME FINDS A HOLE IN A LIST THAT MATCHES 
/A SPECIFIED SIZE (IN THE AC) BEST* IT RETURNS 
/WITH THE POINTER TO THAT HOLE IN THE AC* 



J2^63 



/ 
/ 
/ 
/ 

/ 
/ 



TAD (/I 

JMS SMALL 

LISTBEGIN 

-LISTEND 
NOT FOUND RETURN 
NORMAL RETURN /AC 



/SEARCH SMALLEST HOLE > OR 



4L0C< 



/AC=0 
^POINTER TO 



HOLE BEGIN 



/L I STBEGIN^ 1 ; 3; 2; 4; 0; 0; 0; 0; 

/LISTEND> 

/ZEROES REPRESENT HOLES!!!!! 





7777 


SMALCN> 












SMALL, 


• — • 

CIA 






DCA 


SMALL- 1 




CiMA 






DCA 


SMALL- 2 




CMA 






DCA 


SMALCN-1 




CMA 






TAD 


I SMALL 




DCA 


SMALL- 3 




ISZ 


SMALL 


SMAL 1 , 


DCA 
CMA 


SMALCN 


SMAL2> 


DCA 


SMALL- 4 




TAD 


SMALCN-1 




SNA 


CLA 




JMP 


SMALND 




TAD 


SMALL- 3 




CLL 






TAD 


I SMALL 




SZL 


CLA 




JMP 


SMAL 5 




ISZ 


SMALL- 3 




TAD 


I SMALL - 


/THE FOLLOWING INSTR 


/AND WHAT NOT. IN TH 




SZA 


CLA 




JMP 


SMAL 3 




DCA 


SMALL- 4 




ISZ 


SMALCN 




JMP 


SMAL 2 



/ENDS WITCH:0= end; 7 777==N0RMAL 
/COUNTS SIZE OF HOLE 
/POINTS WHERE LAST HOLE i^AS 
/HOLEFLAG:0 = HOLE; 7777=N0T HOLE 
/POINTER IN LIST 
/SIZE OF LAST HOLE 
/-SIZE OF HOLE WANTED. 

/ENTRY^SIZE OF WANTED HOLE IN AC 

/SAVE -SIZE 

/SET LAST HO^E SIZE TO LARGE VALUE 

/RESET END SWITCH 



/SET UP POINTER (-1) 

/POINTS TO -LISTEND) 

/CLEAR HOLE COUNTER 

/SET HOLEFLAG to NOT HOLE 

/end switch set? 

/yes^real end 
/out of list? 



/YES> SIGNAL END FOR NEXT TURN 

/POINTER+l 
3 /FETCH 

UCTION DETERMINES WHAT IS A HOLE 
IS CASE : 0000= •HOLE* 

/IS IT A ZERO? 

/NO 

/CLEAR HOLEFLAG 

/COUNT SIZE OF HOLE 

/SET HOLEFLAG AND PROCEED 
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/WE HAVE NOW TOUCHED 
/WAS THE FIRST AFTER 
/A HCX.E. LISTEND ALS 
SMAL3> TAD SMALL- 4 
SZA CLA 
JMP SMALl 
TAD SMALCN 
TAD SMALL- 1 
SNA 

DCA SMALCN- 1 
SPA CLA 
JMP SMALl 
TAD SMALL- 2 
CIA CLL 
TAD SMALCN 
SZL CLA 
JMP SMALl 
TAD SMALCN 
DCA SMALL- 2 
TAD SMALL- 2 
CIA 

TAD SMALL- 3 
DCA SMALL- 5 
JMP SMALl 



AN OCCUPIED LOCATION. IF THIS 
A SET OF ZEROES^ IT TERMINATES 
TERNINATES A HOLE! ! ( ENDFLAG) 
/HOLEFLAG=0? 

/NO, WE ARE STILL IN OCC AREA 
/YES> WE JUST ISOLATED A HOLE 
/IS HOLE EXACTLY WHAT WE WANT? 

/SET END FLAG 

/NO, TOO SMALL, SEARCH FURTHER 
/YES, FOUND A POSSIBLE HOLE 
/IS IT SMALLER THAN LAST HOLE? 



/NO, LAST HO^E IS BETTER MATCH 
/YES, REPLACE LAST HOLE 

/MAKE IT POINT TO HOLEBEGIN 

/ALSO REMEMBER WHERE LAST HOLE BEGINS 



/END OF LIST DETECTED, 
/SO SET FLAG TO SIGNAL 
/THE HO-E FIRST. 
SMAL5, DCA SMALCN -1 
JMP SMAL3 



MAY TERMINATE 
THAT THE GAME 

/SET END FLAG 



A SET OF 
IS OVER, 



ZEROES (HOLE) 

yjin PROCESS 



/END OF 


THE ROUTINE. 


THERE IS EITHER A HOLE 


/HOLP- FOUND( LAS THOLE 


IS 


SlILL 7777) 


SMALt!D, 


TAD SMALL- 2 

CMA 

SNA CLA 




/LASTH0LE=77 7 7? 




JMP SMAL4+1 




/YES, NOTHING FOUND 




TAD SMALL- 5 




/TAKE POINTER IN AC 


SMAL4, 


ISZ SMALL 
ISZ SMALL 
JMP I SMALL 







OR NO 
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Fjajd THe smAul^st Hole in ^^ list j 6c f^^ Are a rtif^N ok 

eid UA-L TO THE VAU-lE. IN THG- AC • 



063 



(small ^ 

L -AC 

,.....^i' .,:i,..- 

LASTHOUec 

R£SCr e?JD- 

SVV ITCH 

■' ¥1'"^'^ 

(air MP 1 
IfOiN-rEK. J 
:§MAL.l^ ^ — ^ 

HoLecouNTsr 
<^ 

HOLErFLA^e 
7777 



<i) 



>\ 



SMA'L2, 




RETURrH y 

POUNO 



SMALK]^; 




c 



^Jc>R^AAc 
RBTuRrs 



I 



3 



Po(Nrep>To 

B&StlNMINGtOf 

Hole in ac 






U 




pErcH 



. Hole. 

ODONT - 
HOLE 



HOLE FLAQ = 
4J OUe COUNT +1 



In F^ • 1 



Too SMALU 
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® 




i-ASTfioLe:. 

COM pure AMD 
SAVE ftofNreR 



^ 



5<^ 



/LINK FOR RELOCATABLE CROSS-PAGE REFERE^JCING; WI THIN 1 FIELD. 

/THIS LINK WORKS IN MUCH THE SAME WAY AS A DEBUGGING TRACER. 

/IT EXECUTES THE INSTRUCTION WI TH A COMPUTED OPERAND. 

/THE ROUTINE HAS BEEN TAILORED FOR AND» TAD* I SZ* DCA, 

/JMP AND JMS. THE LINK WILL BE PRESxiRVED AND OPERATED 

/UPON IN THE NORMAL WAY. IN CASE OF A JMS THE ABSOLUTE 

/RETURN ADDRESS IS DEPOSITED IN THE SUBROUTINE ENTRY* 

/SO THAT THE RETURN FROM THE SUBROUTINE IS THROUGH A . , 

/JMP I SUBR. ENTRY. ARGUMENTS ARE PICKED UP IN THE SAME WAY: 

/TAD I SUBR. ENTRY. 



06q 



/ 


TAD 


AC 


/ 


JMS 


LINK 


/ 


' 


B-. 


/ 




TAD 


/ 


RETURN 


/ 


RETURN IF is; 




1000 




AND 


I LINKPC 


LINKPC* 


•0 




LINKAC* 







• 

LINK* 


♦ • • 






DCA 


LINKAC 




TAD 


I LINK 




SPA 






CML 






TAD 


LINK 




DCA 


LINKPC 




ISZ 


LINK 




TAD 


I LINK 




ISZ 


LINK 




SPA 






JMP 


LINK J 




TAD 


LINKPC- 1 




DCA 


.•t-2 




TAD 


LINKAC 









JMP 


I LINK 




ISZ 


LINK 




JMP 


I LINK 


LINK J* 


AND 


LINKPC-2 




SZA 


CLA 




JMP 


LINKS 




TAD 


LINK 




DCA 


I LINKPC 




ISZ 


LINKPC 


LINKS* 


TAD 


LINKAC 




JMP 


I LINKPC 



/LINK PREFERABLY IN PAGE 

/REI.ATIVE POINTER 

/OR AND* I SZ* DCA* JMP* JMS 



/CONSTANT 

/TO MAKE REAL INSTRUCTION FROM 
/COMPUTED ABSOLUTE ADDRESS 
/SAVED AC 



/COMPUTE OPERAND<PC) 
/TO PRESERVE THE LINK 

/MAKE ABSOLUTE ADDRESS 



/AND* TAD... ETC 



/JMP OR JMS 

/MAKE TAD I LINK INSTR ETC 



/OVERLAID 

/NORMAL RETURN 

/IF IT SKIPPED*RETURN+1 



/AND CI 000 

/IS IT JMP OR JMS? 

/JMP 

/DEP. 'RETURN* IN SUBR. ENT-iY 

/JUMP TO SUBR.ENTRY+1 
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0(yS - 072, 



DYNAMIC CORE STORAGE ALLOCATION 

ONE OF THE METHODS TO ALLOCATE CORE STORAGE DYNAMICALLY IS BY 
USING THE "FREE-CORE' TECHNIQUE. FREE-CORE IS AN AREA IN CORE, 
DIVIDED INTO BLOCKLETS OF A GIVEN SIZE. (ALSO EQUAL IN SIZE) 
THESE BLOCKLETS CONTAIN ONE POINTER POINTING TO THE FOLLOWING 
DLOCKLET, IN THIS WAY LINKING THE BLOCKLETS IN ONE DIRECTION. <FIG 1> 



1:F a PROGRAM (1) REQUIRES CORE STORAGE FOR VARIABLES, DATA, OR 
F>USH-DOWN LISTS, THE NECESSARY STORAGE CAN BE REQUESTED FROM 
F-REECORE IN UNITS OF A GIVEN SIZE. (ONE BLOCKLET AT A TIME), (FIG 2) 

1;F, for EXAMPLE, A DIFFERENT PART OF THE PROGRAM REQUIRES 2 BLOCKI FTS. 
THE FREECORE AREA CAN BE AS IN FIGURE 3. 

1:p PROGRAM (1) NO LONGER NEEDS ITS BLOCKLET, IT CAN RELEASE THAT 

dlocklet to freecore, which restores the chain as in figure 4. 

t'.c routines described in the following pages make use of a frff- 

'::gre area containing blocklets of 8 computer words, 

the last word in each blocklet is reserved for the pointer. 



Pics,! 






N^E 


(1) 


n 


Fl^.5 


(1) 





neA 


1 


\ 



I?-) 



*-> 



•-y 





—^ 






^ (^) \p^ 



r 



(^) 






--) iz] 



•4> 



( 



ir 









— J l 




( I 
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/INITIALIZE THE FREECORE AREA 

/IT ACTS AS IF ALL THE BLOCKS WERE OCCUPIED BY 

/SCX^E STRANGE CHAIN. BY RELEASING THE BLOCKS ONE 

/AFTER ANOTHERj. THEY BECOME CHAINED TO THE FREE- 

/CORE CHAIN OF AVAILABLE BLOCKS. FC LEHOED FIRST. 

/FREEt.O AND FREEHI DEI.IMIT THIS ACTION. 

/ 

/ CLA 

/ JMS INITFC 

/ NORMAL RETUflN 



00^: 



INITFCj 



/ 

A6AIN> 





• • ♦ 

DCA 
DCA 
TAD 
DCA 

TAD 
JMS 
.TAD 
TAD 
DCA 



FREEF 
FREECT 
FREEHI 
INITFC-1 

INITFC-l 

RELBLK 

INITFC-1 

C7770 

INITFC-1 



/TEMP. STORAGE 

/NO FREEBLKS AVAILABLE 

/GET UPPER LIMIT OF FREECORE 



/RELEASE ALL BLOCKS 
/AND CHAIN ALL TOGETHER 

/SET UP FOR NEXT BLOCK 



TAD 
CIA 
TAD 

SMA 
JMP 



FREELO /GET LOWER LIMIT OF FREECORE 

INITFC-1 /THIS BLOCK BBI^ONGS TO FREECORE? 

CLA /SKIP IF NO 

AGAIN /YES> RELEASE THIS BLOCK AND SO ON 



JMP I INITFC 



/RETURN 
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/REQUEST A FREE BLOCK 

/THE ROUTINE ISOLATES A BLOCK FROM THE TAIL OF THE 

/CHAIN OF FREE CORE BLOCKS^ AND LINKS IT TO THE BLOCK^ 

/POINTED TO BY THE AC IF THE AC = NO LINK IS MADE 

/THIS IS FOR THE VERY FIRST REQUEST* 

/IN CASE OF ERROR RETURN): AC=0; ELSE AC 

/POINTS TO FIRST LOC OF REQUESTED NEW BLK. 

/ 

/ TAD (ANY LOC* IN PREVIOUS ELOCK^ OR AC = 

/ CIF 

/ JMS REQBLK 

/ ERROR RETURN /NO MORE BLKS AVAILABLE 

/ NORMAL RETURN 
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RE0BLK= 
RBLK, 



RBLK2« 



nBLRF 







DCA RBLK-1 

RDF 

TAD C6203 

DCA RBLRET 

CDF 

TAD RBLK-1 

SNA 

JMP RBLK2 

AND C7770 

TAD C7 

DCA RBLK-1 

TAD FREER 

SNA 

JMP RBLRET 

DCA I RBLK-1 

TAD FREER 

SNA 

JMP RBLRET 

TAD C7 

DCA RBLK-1 

TAD I RBLK-1 

DCA FREER 

DCA I RBLK-1 

CMA 

TAD FREECT 

DCA FREECT 

TAD BBLK-1 

AND C7770 

IS7, RBLK 



JMP I RBLK 



/TEMPORARY STORAGE 



/SAVE 



/MAKE POINTER TO LINK LOCATION. 



/POINTS TO TAIL 

/0 = ^W ELKS AVAILABLE 
/MAKE LINK TO NEW BLK 
/FIND NEW TAIL . 

/NO MORE BLKS AVAILABLE 



/UPDATE FREEFIRST C THE TAIL) 

/Z'EJiO THE LINr OF ::h:0 RL/ 

/DECREMENT THE NUMBER OF AVAILABLE FREE 

/BLOCKS 

/TAKE POINTER TO REQ BLK . 

/EST LOC OF BLK 

/NORMAL HETUItN* 
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/n LI. EASE A BLOCKLKT TO FPI^.tCOPE* 

/THE VLOCK POINTED TO BY THE AC. IS LINKED TO THE 

/TAIL OF THE CHAI^J OF FREE COKE BLOCKS WITH ITS 

/CONTENTS ZEROED. 

/EXIT IS ALWAYS WITH AC =0* THEHE IS NO EIsROIi EXIT. 



phy 



/ 


TAD 


(POINT 


/ 


CIF 





/ 


JMS 


KELBLK 


/ 


N OHMAL 


RELBLK= 


• 




RLPL> 


• — • 






AiNlD 


cm<d 




TAD 


C7 




DCA 


RBLK 




RDF 






TAD 


C6803 




DCA 


RLBRET 




CDF 







TAD 


FREEF 




DCA 


I RBLK 




TAD 


RBLK 




a;>3d 


C7770 




DCA 


FREEF 




TAD 


•M7 




DCA 


RBLK-1 




TAD 


FREEF 




DCA 


RBLK 




DCA 


I RBLX 




ISZ 


RBLK 




ISL 


RBLK- 1 




JMP 


.-3 




ISZ 


FREECT 


RLBRET^ 









JMP 


I P2LFJL 



RETURN /A C=0 



/KILL BIT 9-1 1 
/INSERT BIT 9-1 1 
/SAVE TEi^P 



/GET ADDR. OF NEXT FRir.n FREEBLK 
/CHAIN THIS BLOCK TO THE 
/FREE CHAIN 

/SET UP ADDR. OF THIS BLOCK 
/STORE AT PAGE 
/SET UP COUNTER 

/GET ADDR. OF FIRST WORD IN BLOCK 



/INCR. COUNT 
/AGAIN IF CNT NONZERO 
/INCR. NR. OF FREE BLOCKS 

/RETURN 
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/RELEASE A Q OF FORv/ARD LliNiKED BLOCKLETS TO FC . 

/ TAD (POIMTEH IN FIRST BLKLT 

/ GIF MOMFLD 

/ JMS RELQ 

/ NORMAL RETURiN] /AC==0 



/TEi>lPORAF^Y 

/TEMPORARY 
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REI.Q> 



DCA RELQ-1 /SAVE AC 

RDF /MAKE RETURN 



TAD 06203 
CDF MQvJFLD 
DCA RELQH 
TAD RELQ-1 
RELQ2^ AND C7773 /MAKE -> FORWARD LINK 

TAD C7 

DCA kb:lo-i 

TAD I RELO-1 /PICK UP FORWARD LINK 

DCA RELQ-2 

TAD RELQ-1 /RELEASE THIS BLKLT 

JMS RELBLK 

TAD RELQ-2 /IF FORWARD LINK = 0;END OF CHAIN 

SZA 

JMP RELQ2 
R£:LQR^ 

jyip I rb.q 
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/>1AKE A PUFP'ER OH QUEUE IN FREECOHE 

/IKE ROUTINE CREATES A •BOOKKEEPING* BLOCK AND THE 

/FIRST BLOCK OF THE BUFFB;HQUEUE. IT SETS THE PARA- 

/METERS OF 'BOOK* ACCORDINGLY* 

/THE CONTENTS OF THE AC IS USED TO SET THE MAXiMUd 

/ALLOWABLE LENGTH OF THE RUFFER. RETURN IS WITH THE 

/POINTER TO "BOOK' IN THE AC- IN CASE OF ERROR RETURN 

/(NO ROOM AVAILABLE)^AC=0. AND THERE WILL ALSO BE 'VU 

/•BOOK* BLOCK. 



^Sg 



/ 


TAD 


(MAXIMUM 


L EN GTH 


/ 


GIF 









/ 


JMS 


MAKQ 






/ 


1 


ERROR RETURN /AC=0 


/ 


NORMAL RETUKiN) /AC= PTR TO 'BOOK 











/TEMP. POINTER 











/POINTS TO FST LOC IN BUF 











/POINTS TO 'BOOK' 











/•MAXIMUM' 


MAKQ, 













DCA 


MAKQ-1 




/SAVE 




RDF 










TAD 


C6803 








DCA 


MAKRET 








CDF 











TAD 


MAKQ-1 








SNA 






/CHECK FOR A 0=0 




JKP 


MAKRET 




/ERROR AC=0 




DCA 


MAKQ-1 




/SAVE 




JMS 


REQBLK 




/REO . 'BOOK • ELK 




JMP 


MAKRET 




/NO roqm;erroh 




DCA 


MAKQ -2 




/SAVE 'BOOK ' PTR 




TAD 


MAKQ -2 




/REO. FIRST BUF BLK 




JMS 


REOBLK 








JMP 


MAKQ 2 




/NOT AVAILABLE 




DCA 


MAKQ- 3 




/SAVE PTR TO FST BUFBLK 


/THE • 


BOOK' 


ELK IS 


SET UP AS l-OLLOWS: 


ZBOOK^ 









/•DATA' 


/ 


BUFPTR+1 




/'BUI- TAIL' 


/ 









/'BUf COUNT' 


/ 


BUFF 


>TR 




/ 'BUI' HEAD' 


/ 


MAXIMUM 






/ 











/ 

/ 
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TAD MAKQ-2 /SET UP TE^IP PTR 

DCA MAKQ-4 

ISZ MAKQ-4 /POINTS •BUFTAIL * 

TAD MAKQ-3 

lAC 

DCA I MAKQ-4 

ISZ MAKO-4 /SET UP •BUFHEAD' 

ISZ MAKQ-^ 

TAD MAKQ-3 

DCA I C4AKQ-4 

ISZ MAKQ-^ /SET UP VM AX I MUM* 

TAD MAKQ-1 

DCA I MAKQ-/i 

TAD MAKO-g /EXIT WITH PTR TO 'BOOK • IN AC 



ISZ MAKO 
MAKHET^ 

JiMP I MAKQ 



MAKQ2> TAD MAKQ-2 /IF NO ROaM> RELEASE 'BOOK 'ELK TOG 

JiMS HELBLK 
JiMP MAKRET 
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/HEAD NEXT ELEME^JT 
/THE AC MUST POIMT 
/BOOKKEEPIMG OF TBI 



/POOK> 


DATA 


/ 


BUFTAIL 


/ 


BUFCOUiMT 


/ 


BUFHEAD 


/ 


MAXIMUM 


/ 


TAD 


(BOOK 


/ 


CIF 





/ 


JMS 


RBUF 


/ 


BUF EMPT 


/ 


RETURN « 
















F.:BUF=. 






RB, 









DCA 


RB-1 




RDF 






TAD 


C6803 




DCA 


RBRET 




CDF 







CLL 


CML RTI 




TAD 


RB-1 




DCA 


RB-2 




TAD 


I RB-2 




SNA 






JMP 


RBRET 




TAD 


Ml 




DCA 


I RB-2 




IS?. 


RB-1 




TAD 


I HB-1 




DCA 


RE- 2 




TAD 


I RB-1 




AND 


C7 




TAD 


M7 




S7..(\ 


CLA 




JMP 


RB2 




TAD 


I RB-2 




DCA 


I RB-1 




TAD 


RE-2 




JMS 


RELBLK 


FRP, 


TAD 


I RB-1 




DCA 


RB-2 




ISZ 


I RB-1 




TAD 


I RB-2 




ISZ 


RB 


RERET> 









JMP 


I RB 



EhOM THE TAIL OF A PUEFEF:* 

TO A SECTION IN CORE WHEHE THE 

S Dl)F^ER IS DONE. FORMAT IS: 

/TEMP. SAVE LOCATI Oi\!> Oi^E ELEi^^ENT 
/TAIL OF BUFFEH> FIRST LOG. 
/# OF EI.EMEOvTS NOW IN BUF 
/HEAD OF BUFFER^ LAST LOG. 
/MAX # OF ELEMENTS ALLOv/ED 
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RET. AG=0 
rn ELEMENT 



IN AG^ 



/TEMPORAIiY 
/ " 



/SAVE POINTER TO BOOK 



/AC=2 

/POINTS TO BUFCOUNT 
/IS EUF EMPTY? 

/YES> EHKOH RETURN 
A^O:r COUNT-1 

/POINTS TO BUFTAIL 
/IS THIS THE LINK? 



/NO 

/YES> GET LINK TO NXT BLK. 

/UPDATE BUFTAIL 

/NOW RELEASE BLOCK 

/FETCH ELEi>iENT 

/BUJ^TAIL+1 FOR NXT ENTRY 
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/vJi-ITK AAi 1lLEME^\)T onto THK T lP 01^ A BUF l^El- Q Ufc.UE 

/I^} FPKECOFiK* HUF KULL HETUn^v) IS TAKEN 

/vHEN BUFFER FULL OH NO FREE BLOCKS A\;AILAELE. 

/BUF FULL RET IS ALSO TAKEi\l wHt:i>3 THE LAST CHAR 

/COULD JUST BE STORED. SUCCESSIVE ATTEi:^PTS LOSE DATA- 

/ 

/ 
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/ 
/ 
/ 
/ 
/ 



TAD ELFl^ECgT /STOhF. l^ 'DATA' 

CIF 

JMS wPUF 

BOOK /POIiNJTER TO BOOK BLK> FLD0 

BUF FULL RETURiv /AC=0; ALSO IF F.C* FULL 

NORMAL liFTURM /AC = 























•■JB, 




DC A 


*'P- 3 


TAD 


I WP 


DCA 


WE-1 


ISZ 


WB 


EDF 




TAD 


C620 3 


DCA 


WERET 


CDF 





IS? 


WE- 1 


isz; 


WB-1 


CLL 


CML RTL 


TAD 


WB- 1 


DCA 


WE- 2 


TAD 


I WE-S 


CIA 




TAD 


I WE-1 


SMA 




JMP 


WBPET 


DCA 


WB-4 


TAD 


WB- I 


lAC 




DCA 


WB-8 


ISZ 


I WE- 2 


TAD 


I WB-2 


AN D 


C7 


TAD 


M7 


S7.A 


CLA 


JMP 


WB2 


TAD 


I WB-2 


JMS 


REOBLK 


JMP 


WBPET 


DCA 


I WB- 2 


■]E2, TAD 


I WB-2 


ISZ 


I WB- 1 


DCA 


WB-2 


TAD 


WB-3 


DCA 


I wB-2 


ISZ 


WB- A 


IS/. 


WB 


■ih^h.T.; 




JMP 


I WE 



/FLAG;-! IF LAST ELEME^jT 
/DATA STORE 
/TEMF'OHARY 
/ •» 



/PICK UP BOOKPTR 



/POINTS TO 'EUFCOUNT' 
/AC=2 

/POINTS TO •MAXir^UM' 
/BUF FULL? 



/YES> ERROR 

/FLAG FOR LAST ELEME^iT 



/POINTS TO 'BUFI-IEAD' 
/BUFHEAD+1 GIVES NX T FREE L OC ■ 
/IS THIS THE LINK? 



/NO 

/YES> REQUEST A FREE BLK 

/NO room; error; ac=0 

/ UP DA T F; B U • }-5 U FH EA D ' 
/PUT DATA IN BUF 
/BUFCOUNT+1 



/f:rr«ret. if last elei^ent 

/NOHl^AL REI 
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/KILL THL BUFFER QUEUE 07^2. 

/THIS OPERATIOM> WHICH MAY BE TIME-COi^SUMI MG> HELEASLS 
/ALL THE BUKFERBLKS TO FEEECOPE^ ALSO THE •BOOK' BLK • 



/ 


TAD 


(POIiXiTEF; 


/ 


GIF 





/ 


JMS 


KILLQ 


/ 







FORMAL RET 


KILLO* 









DCA 


KILLQ-1 




RDF 






TAD 


C6203 




DCA 


KILLRT 




CDF 







ISZ 


KILLO-1 




TAD 


I KILLQ-1 




AND 


C77 70 


KILLQ?, 


TAD 


C7 




DCA 


KILLQ-g 




TAD 


I KILLQ- 2 




DCA 


KILLQ-3 




TAD 


KILLQ-8 




JMS 


RH-ELK 




TAD 


KILLQ-3 




SZA 






JMP 


KILLQ2 




TAD 


KILLQ-1 




JMS 


R EL BLK 


KILLRT, 









JMP 


I KILLQ 



) /AC=0 

/TE^^P• LI^K 

/POINTS LI^}K OF THIS BLK 

/POIiNiTS IiNl 'BOOK* 

/SAVE 



/POIl^JTS 'BUFTAIL' 

/POIiMTS TO LINK 

/GET LINK 

/NOW RELEASE ELK 

/WAS IT LAST BLK OF QUEUE? 

/N0> SEARCH N£:XT 
/YES^KILL 'BOOK' TOO 
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/HOUTINES TO CONVKHT OCTAL AjUi^SBEKS 0-17 ^7^ 

/TO EiXESS m STRIPPED CODE 

/ 

/lAlPUT OCTAL 

/OUTPUT OCTAL 

/ 

/EXAMPLE: 1 5 --> 2125 

/ 7 --> 20 2 7 

/ 

TAD M10 

SMA 

TAD C70 

TAD C20 30 

/INPUT OCTAL 

/OUTPUT OCTAL 

/LEADI^JG ;7;eeO*S BECOME PACKED SPACES 

/ 

/EXAMPLE: 15 --> 2125 

/ 07 --> 0027 

/ 

TAD M10 

SMA 

TAD C20 70 

TAD C30 

^ "J^ *J^ ^^ ^f '^C ^If ^ic die ^jf ^1^ ^ic )aC ^£^ ^(eC ^t^ ^Ic ^ic ^^ 3^ ^Sc ^Ic ^^ "^^C ^Ic ^^ ^fi^ .^C 3*C ^Ic ^t^ ^!! !4c !)^ >l^ ^^ 

/le^PUT OCTAL 

/OUTPUT DECIMAL 

/ 

/EXAMPLE: 1 5 --> 2123 

/ 07 --> 2027 

/ 

TAD Ml 2 

SMA 

TAD C66 

TAD C20 32 

/INPUT OCIAL 

/OUTPUT DECIMAL 

/LEADING ZERO'S BECOIE PACKED SPACES 

/ 

/EXAMPLE: 15 --> 2123 

/ 7 --> 002 7 

/ 

TAD Ml 2 

SMA 

TAD C2066 

TAD C32 

/:f: ijc jf: >^ 5ic 5fc :4; jf: 4i 5f: :4« =f^ :4< 5f: ^ 5fc ^. 4^ :4c :i{c ;4< "f: 5ic 3f: ^f: ;< ^ 

/GENERAL Ca\ISTANTS: 

/ 

M10> -10 

M12> -12 

C30> 30 

C32> 32 

C66> 66 

C70> 70 

C2030> 2030 

C';^032^ 2032 

C20 66^ 20 66 

(::P0 70^ 20 70 
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/INTERRUPT ROUTINE FOR REALTIt^E CLOCK 0^^ 

/TIME AND DATE ARE AUAILLARLE I iN) REGISTERS 

/ MliVj 

/ HOUR 

/ DAY 

/ MOiMTH 

/ YEAR 

/ 

/OPTIONAL .DAY OF WEEK AVAILLABLE IN REGISTEli 

/ DAYW 1= SUN DAY 

/ ?=MONDAY 

/ ETC. 

/ 

/ENTRY AFTER CLOCK INTERRUPT 

/WITH AC AND LINK SAVED 

/ 

CLOCKS ISZ: TICK 

JMP EXIT /RETURN FROiyi INTERRUPT 

TAD C450 /50 HERTZ 

DCA TICK /RESET TICK = - 60 

ISZ: SEC 

JMP EXIT 

TAD M60 

DCA SEC /RESET SEC = - 60 

ISZ MIN 

TAD lyilN 

TAD M60 /60 MINUTES GOivJE? 

SZ(k CLA 

J.MP EXIT /NO 

DCA MIN /YES^ RESET MIN =0 

ISZ HOUR 

TAD HOUR 

TAD M24 

SZA CLA /24 HOURS GDN3E? 

JMP EXIT /NO 

DCA HOUR /YES-. RESET HOUR = 

I SZ DAY 

I'A D DAY V/ /4: * * * -1^ ^ * * * -^ ^ * jc >^ >lc 4i * * -f^ 5TC 

I AC /*IF DAY OF l«/EEK IS 

AND C7 /^NOT IMPORTANT DELETE 

SNA /*THESE INSTRUCTIONS 

I A C /* 

DCA DAY'vV /-^ :?: 4^- :t: ^ :*: ^ .<c 4: sfc: :<c ^ ic ^ jic :ic 4: 4: 4: ;fc 

TAD oaONTH 

TAD MONLST /# OF DAY / i^iONTH 

DCA TEMP 

TAD DAY 

TAD I TEf4P 

SPA SNA CLA /LAST DAY OV t^UNTH? 

JM- EXIT 
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I AC 




DC A LAY 




IS/. Ma«jTH 




TAD MOiNJTH 




TAD Ml 2 




SPA S.^JA CLA 




JMP EX I T 




I AC 




DCA MQ-vJTH 




ISZ YEAR 




TAD YEAR 




AVD C3 




SZA CLA 




JlMP iMLY 




TAD YEAR 


LOOP, 


CLL 




TAD 'Am-a 




SiML 




JMP iSi^i00V 




s:iA 




JMP LOOP 




JiMP NLY-l 


'AAQdVj 


TAD CI 00 




SPA 




Ji'iP Ni'l00U 




S?,A CLA 




CLA CM A 


NLY> 


TAD K28 




DCA MOXJLST+S 




JMP EXIT 


/ 






DECIMAL 


MONLST. 


,MO(MLST 




-31 




-28 




-31 




-30 




-31 




-30 




-31 




-31 




-30 




-31 




-30 




-31 


/ 




Ml^l, 





houf;. 





DAY> 





MYW, 





MO:.vITH> 





YEAH, 


19 73 


/ 





/YES 

/RESET DAY = 1 



/i.A£T I^OiNJlH OF' YEAR? 

/YES 

/RESET iXlO^TH = 1 



/IS IT A LEAPYEAli? 
mo LEAPYEAK 
AX;AY BE! 



/YEAR = MULTIFLE 430 
/LKAPYEAR 



/SET P-EB TO 28 OR 29 DAYS 



/DAY OF THE ''JEEK^ OPTIO>^AL! 
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/G£;MEf 


'AL CONSTANTS 


/ 




Mbe* 


-50 


i<-;60. 


-60 


MS^!> 


-2A 


f128> 


-28 


M12> 


-12 


M40O* 


-400 


CI 00* 


100 




OCTAL 


C7, 


7 


C3> 


3 


TICK> 





SEC* 





/GEMERAL INTERRUPT TFJRURN 


/ 




EXIT* 


CLA CLL 




TAD LID^K 




RAR 




TAD ACCU 




ION 




JMP I 


/ 




TEf-IP* 





ACCU* 
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/PRINT DATE> WEEKDAY ACJD TIi^lE Vh (M THE REGISTERS: r^/^ 

/ MIN /0-b9 

/ HOUR /0-93 

/ DAY /I -31 

/ DAYW /!• 7 

/ MONTH /1-12 

/ YEAH 

/ 

/USIiMG THE SUBROUTINES: 

/ PHMESG /PRINT MESSAGE 

/ DPRTl /DECIMAL PRIiNJT 

/ PRINT /STANDARD PRINT ROUTINE 

/ 

PHDAT> 

TAD DAYl'J 

TAD DTXTAD 

DC A PRTMP 

TAD I PRTMP 

DC A PRDATl 

JMS PHMESG 
PRDATl >0 

JMS SPAC 

TAD DAY 

JMS DPRTl 

2 

JMS SPAC 

TAD MONTH 

TAD MTXTAD 

DCA PRTMP 

TAD I PRTMP 

DCA PRDAT2 

JMS PHMESG 
PHDAT2>0 

JMS SPAC 

TAD YEAH 

JMS DPRTl 

JMS SPAC 

TAD HOUR 

JMS DPRTl 

2 

TAD DOT 

JMS PRINT 

TAD MIN 

JMS DPRTl 

2 

JMP I PRDAT 
/ 

PPTMP= • 
SPAC^ 

TAD C240 

JMS PRINT 

JMP I SPAC 
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/ 
DOT> 

/ 

/ 
DTXTA 



/ 
MIXTA 



/ 

JAN^ 
FEB> 
MAR^ 
APR> 
MAY> 
JUN> 
JUL> 
AUG^ 
SEP^ 
OCT> 

DEC^ 

/ 

/ 

/ 

TUES> 
v'JED^ 

FRI> 
/ 



2/i0 



D^ DTK TAD 
SUN 
MON 
TUES 
\aJED 
THUR 
FRI 
SAT 

D>iMTXTAD 
JAN 
FEP 
MAR 
APR 
MAY 
J(JN 
JUL 
AUG 
SEP 
OCT 
NOV 
DEC 

TEXT "JANUARY " 

TEXT "FEBRUARY " 

TEXT "r4ARCH 

TEXT "APRIL 

TEXT "MAY 

TEXT "JUNE " 

TEXT "JULY 

TEXT "AUGUST 

TEXT "SEPTEMBER" 

TEXT "OCTOBER " 

TEXT "NOVEMBER " 

TEXT "DECEMBER " 



PAGE 

TEXT 
TEXT 
TEXT 
TEXT 
TEXT 
TEXT 
TEXT 



"MONDAY 

"TUESDAY 

"WEDNESDAY 

"THURSDAY 

"FRIDAY 

"SATURDAY 

"SUNDAY 
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/SUBROUTINE TO UX'PACK 

1 


TS£ 


;-8 


TIME 


f 

/CALL: JMS 
/ 

/RESULT IN 


UNPTIM 


/WITH 


AC 


= 


KEG I STE>^ 


S: 








/ 


H OUR 


/0- 


23 






/ 


MIN 


/0- 


59 






/ 

/ 


SEC 


/0- 


b9 






/ 

/THIS EOUTINE ASSUM 


ES 


THA 


T 


THE SYSTEM CLOCK RATE 


/IS 20 SYSTEM TICKS 


PE 


;n s 


ECOND, 


/IF OTHER, 
/ 


CHANGE CONS 


TAMTS 


AT UNiPTHI UP TO UiMPTL 0+ 


/ 

[JNPTIM, 












TAD 


UNPTAD 










TOD 










/GET TIME OF DAY 


TAD 


UivJPlHA 










DCA 


UMPTPH 








/SET P0I:\]TERS 


TAD 


UiNlPTLA 










DCA 


UNPTPL 










TAD 


UlNiPTOT 










DCA 


UNPTPO 










CLA 


CLL CMA 


RTL 






/-3 


DCA 


UiMPTCT 










UNPTLP, DCA 


LMPT.SIM 








/CLEAR ^'Ui^BER 


TAD 


UNPTL 










CLL 












TAD 


I UlNiPTPL 










DCA 


UNPTMP 










RAL 












TAD 


UNPTH 










TAD 


I UNPTPH 










SNL 












JMP 


UNPTiVJD 










DCA 


UlMPTH 








/KESTOHE HIGH REMAIiMDEK 


TAD 


UNPTMP 










DCA 


UiMPTL 








/Rf.STORE LOW REMAINDER' 


ISZ 


UNPTNM 








/COUNT THIS SUBTiiACTIOiSi 


JMP 


UNPTLP+1 










UNPTND^CLA 












TAD 


UNPTiNiK 








/GET NUMPER 


DCA 


I UNPTPO 








/PUT IN" SPEC HEGISTEiP 


ISZ 


UNPTPH 








/UPDATE POINTERS 


ISZ 


UMPTPl. 










ISZ 


UI^PTPO 










ISZ 


Ul^JPTCT 








/HEADY? 


JKP 


UNPTLP 








/NO, LOOP 


JMP 


I UiMPTIM 








/YES, EXIT 



07^ 
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UNIPTAD> 
iJNPTH^ 

UlnjPTCT> 
IINPTMP^ 
UNPTPO^ 
U^3PT0T> 



UiNIPTPL^ 
UTslPTPH^ 
lJNPTHA> 
UA}PTLA> 
UNPTHI^ 



UNPTLO^ 



/ 

HOUP> 

5EC> 



IJNPTH 









H OUR 

MINI 

SEC 





UiNjPTHI 

UNPTLO 

7756 

7777 

7777 

3300 

5520 

775^ 





/L OW 

/HI 



ORDER 

OR PER 



POI:.NJTEF 
POINTER 



/A DDR. 
/A DDR. 
/- # OR 
/- # OF 
/- 3(^ OF 



OF 

OF 



HI 
L OW 



OFiDER 
ORDER 



CO^JSTANTS 
CONSTA^JIS 
TICKS/HOUR=-72000 DEC* 
TlCKS/^l^ =- 1200 DEC. 
TICKS /SEC =- 20 DEC 
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07 7 

/SUBPOUTINE TO U>JPACK TSS-8 TIME ' ^ 

/ 

/CALL: JMS UNPTIi^ /WITH AC = 

/ 

/RESULT IM REGISTERS: 

/ HOUR /0-23 

/ MIiM /0-59 

/ SEC /0-b9 

/ 

/THIS ROUTIiNiE WORKS FOR AiSlY CLOCKRATE 

/ 

/ 

UNFn'IM>0 

RCH 

CIA 

DCA UMPTDV /PUT IN DIVISOR LIST 

TAD UNPTAD 

TOD /Gi^T TII^iE OF DAY 

TAD UNPTDA 

DCA UINJPTPD 

TAD UN P TOT 

DCA UNPTPO 

TAD M/l 

DCA UNPTCT 

U^PU.P^DCA UNPTNM /CLEAR NUi^BER 

DCA UiNJPTNM+1 

TAD UNPTL 
CLL 

TAD I UNPTPD 

DCA UNPTiMP 

SNL 

CLA CMA 

TAD UNPTH 

S>]L 

JlylP UNPTND 

DCA WPTH /iCESlORE HIGH REi^AJ^^DER 

TAD UlMPTMP 

DCA UNPTL /RESTORE LOW REMAINDER 

ISZ UNPTNM /COUNl THIS SUBTRJ^XTION 

SKP 

I SZ UNP TNM+ 1 /H I Or: Dt.R R tS UL T 

^':/\:P UNPTLP-f2 
UNPTND^CLA 

TAD irNPTNM+1 

DCA UNPTH 

TAD UNPTNM /GhT NUMPER 

DCA I UNPTPO /PUT IN SPEC- hEGISTEii 

IS^^ [JNPTPD /UI^DATE POINTERS 

IS7. UNPTPO 

I SZ UNP TC T /i : EA DY ? 

JMP UNPTLP /NO^ LOCP 

JMP I UNP TIM 
/ 
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UNPTMP:. 

UNiPT^O^ 
UNPTOT^ 



UNPTPD^ 
UNPTDA> 
/ 

/ 
UrNjPTDV. 



/ 

/ 
/ 

aNPTH> 
IJNPTL^ 
H OUR> 

SEC> 
/ 

•M4> 



UMPTH 











UNPTL 

HOUR 

C4Il\I 

SEC 



U^^PTDV 
DECIMAL 

.0 
-3600 
-60 
-1 

OCTAL 







'0 

-4 



/LOW 
/PI I GH 



OHDEh 
OHDER 



/PUI-NJTEh Ii\) DI y LIST 



17 



/Sin^F^OUTINE TO UNPACK 15S8 DATE 

/ 

/RESULT IN HEGI STEPS 

/ DAY /I -7 

/ MOgTH /I -IP 

/ YEAR /AMY 

/ 

UNPDAT^0 

DATE /GET DATE FBiM TSB 

DCA DAY 

JMS DATDIV /DE\;iDE BY 

-56^ /56/i( SUBTRACT) 

TAD TIMES 

TAD C196i^ /AC = YEAE-196Ai (DEC) 

DCA YEAR 

JMS DATDIV /DEVIDE PEST BY 37 

-37 

ISZ; TIMES /MOiXITHS MUST BE +1 

TAD TIMES 

DCA MONTH 

IS^ DAY /REMIMDEH IS DAY S- 1 

JMP I UNPDAT 
/ 

/SUBROUTINE DATDIV DECIDES 'DAY* >5Y GIVEN NUMBER 
/ 
DATDI V>0 

DCA TIMES /CLEAR RESULT 

DATD1> CLL 

TAD DAY /NUi-irasR TO DEVIDE 

TAD I DATDIV /NUM}-^]:.] TO DEVIDE BY 

SNL /iiEADY? 

JMP DATD?> /Yh.S 

DCA DAY /NO STORE REST 

IS/^ TIMES /COUNT SUPli.ACTION 

JM P i;)A TDl /S UBTi^A C 1 U\i E ' S M OH E 

DATDP> CLA CLL /REST IS IN NUMB 

ISZ; DATDIV 

JMP I DATDIV /EXIT 

/ 

C26f:, 260 

LAY> 

:^iONTH^ 

YKAi<> 
/ 

DEC I MAL 

OCTAL 



07S 
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/DECIMAL PRINT WITH VAHIABLE MUMBEH OF DIGITS 07^9 

/CALL l^ITH NUMBER TO BE PRINTED I ^j AC 

/AND # OF DIGITS TO BE PRINTED 

/FOLLO^ilNG THE SUBROUTINE CALL. 

/ 

/CALL: TAD NUMBER 

/ JMS DPRTl 

/ 2 /# OF DIGITS TO BE PRINTED (MAX = 4) 



/SAVE AC 

/CLEAR # OF PRINTED DIGITS 

/FETCH FORMAT 



/ 






/ 






DPRTl > 









DCA 


DPRREG 




DCA 


DPRD 




TAD 


I DPRTl 




DCA 


DPR DIG 




ISZ 


DPRTl 




TAD 


DPRINS 




DCA 


DPRPTR 




CLA 


CLL CMA 




DCA 


DPR FAG 




DCA 


DPRDGT 


DPKSUB 


*CLL 






TAD 


DPRREG 


DPRPTR. 


,0 
S'ML 






J.MP 


. + 4 




DCA 


DPRREG 




ISZ 


DPRDGT 




JAP 


DPR SUB 




CLA 






TAD 


DPRDGT 




TAD 


DPRD 




SZA 


CLA 




JMP 


DPR DIN 




TAD 


DPRFAC 




TAD 


DPR DIG 




SPA 


S.MA CLA 




JiMP 


DPRTl iSI 




TAD 


C240 




JMP 


DPRPR 


UPRDIMj 


. ISZ 


DPRD 




TAD 


DPRDGT 




TAD 


eg 60 


DPRPR> 


JMS 


PRI.^T 


DPR TIM J 


. ISZ 


DPRPTR 




ISZ 


DPRFAC 




JMP 


DPRSU3-] 




TAD 


DPRREG 




TAD 


C260 




JKaS 


PRIi>jT 




JMP 


I DPRTl 



/CORRECT RETURN 

/SET POINTER 
RTL /-3 

/FACT0RI7.E A DIGITS 
/CLEAR DIGIT 



/SUBTRACT 

/NEGATIVE? 

/YES 

/STORE RESULT OF SUBTRAiCTION 

/N0> STe-^ UP DIGIT 



/GET DI GIT 

/PRINT THE DIGIT? 
/YES J GO 0>J 
/NO, 



/PRINT 


A 


SPACE? 


/NO 






/YES 






/FETCH 


DI GIT 


/CON VEy 


il 


TO ASCII 



/STEP VP POINTER 



/FETCH LAST DI GI T 
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))pr;Ht,G, 





WED, 


!?, 


LPHDIG, 





DPHFAC, 





DPP.DGT> 





DPRINS> 


TAD DPPiP 


/ 






DECIMAL 


/ 




DP HP, 


-1000 




-100 




-10 



OCIAL 
/ 
/GLiMLRAL COc\l STARTS 

/ 
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/ OCTAL PRI^]T HOUTI>JE v^/l TH LEADING SPACES 8>0 

/NOiNJSIGNIFICAlSJT ZERO'S BECOME SPACES 

/LINK NEEDS NOT TO BE PRESERVED BY 'PRINT' ROUTINE. 



/ 






/CALL: 


TAD 


NUMBER 


/ 


JMS 


OCTPRT 


/ 




RETURNS 


/ 






OCTPRT* 


. 






DCA 


OCTTiMP 




TAD 


M/i 




DCA 


OCTCNT 




CiMA 




OCTPR0* 


DCA 


OCTFIG 




TAD 


OCTTMP 




RAL 






RTL 






DCA 


OCTTMP 




TAD 


OCTTMP 




RAL 






AND 


C7 




IS?. 


OCTCNT 




JMP 


. + 4 




TAD 


C260 




JMS 


PRINT 




JMP 


I OCTPRT 




SNA 






IS7. 


OCTFIG 




JMP 


. + 4 




TAD 


ce40 




JMS 


PRINT 




JL^.P 


OCTPR0-1 




TAD 


C260 




JM S 


PRINT 




JMP 


OCTPR0 


OCTTMP* 







OCTCNT, 


B 




OCTFIG> 


r\ 




M/j, 


-4 




C7, 


7 




C2/!(?* 


240 




C£63^ 


2 60 





WITH AC=0 



/ DOUBLE WOhD OCTAL PPI^Il i UUTINK "^ S ^ 

/ 

/CALL: J^iS DOCTPH 

/ HIORDEP^ PART 

/ LOWORDEHPART 

/ RETURN AC=0 

/ 

DOCTPR^ 

CLA 

TAD I DOCTPR 

ISZ DOCTPR 

DC A OCTTMl 

TAD I DOCTPR 

ISZ, DOCTPR 

DCA 0CTTM2 

TAD M10 

DCA OCTCMT 

CMA 

l)CTPRl> DCA OCT FIG 

JMS DBLIiOT 

JMS DEL ROT 

JMS DBLPOT 

TAD 0CTTM2 

RAL 

AiMD C7 

ISZ OCTCNT 

JMP .+4 

TAD CR60 

J\AS PRINT 

JMP I DOCTPR 

SNA 

ISZ OCT PIG 

JMP • + /! 

TAD C240 

JMS PRIMT 

JMP OCTPRl-1 

TAD C2 60 

JMS PRINT 

JMP OCTPRl 

OCTTMl^ 
OCTTMf^> 
OCTCN'i^ 
OCTl'JG, 
XI 0> -10 

C7> 7 

C240> 8/i0 

C260> ?>60 

DELROT> 

TAD OCTTMP 

RAL 

DCA 0CTTM2 

TAD OCTTMl 

RAL 

DCA OCTiMl 

JMP I DBLROT 
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/ASCII STRING GEMEHATOh 082^ 

/GE^JERATES THE 64-CHARACTER ASCII SET I ^J A STRIiMG 
/TEHiMINATED WITH CARRIAGE RETURN^ LI^JE FEED 
/ 



/CALL: 


CLA 




/ 


JMS 


GENSTh 


/ 




RETUP.N CAC=0) 







/END OF PARTIAL STRIinjG 







/POIMTER 







/ T Ei4P ORAii Y S 1 OR A GE 


GEMSTR, 


• "" • 






TAD 


GENLST 




DCA 


GEtNiSTR- 2 /INITIALIZE POINTER 




TAD 


GENSTR-2 




TAD 


GENLTH 




DCA 


GEi^STR-1 




TAD I 


GENSTR-1/GET NEXT CHARACTEiR 




DCA 


GENSTR-1 




ISZ 


GEN S TR- 2 /I N CREM EN T P 01 N TER 




TAD I 


GENSTR-2 




Si-JA 


/END OF LIST ? 




JMP I 


GENSTR /YES 




CIA 






DCA 


GENSTR-3/SET UP TO TEST 


GEI^LP, 


TAD 


GENSTR-1 




JMS 


PRINT 




ISZ 


G E;N S TR - 1 /CHA RA C T ER + 1 




TAD 


GENSTR-1 




TAD 


GENSTR-3 



SPA S^)A CLA /EQUAL TO POINTED CHARACTER ? 

JMP GENL? 

JMP GENSTR+3/YES> GET NEXT CHARACTER 



GENLTH* 


GENNXT- 


GENLST 


GENLST, 


• 






332 


/Z 




271 


/9 




257 


/SLASH 




300 


/@ 




337 


/- 




215 


/RETURN 




212 


/LINE FEED 







/TERMINATOR 


GENNXT* 


3P)1 


/A 




2 60 


/0 




2^)0 


/SPACE 




272 


/: 




333 


/c 




21 5 


/HhA'Uh-Si 




212 


/LINE FEED 
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/iNCUhA'it^T DOUBL.K PRt.CISlOiM COUMTi^.R 0o3 

/.UTH OVERFLOW KETUKNJ (AFTfcJ^ 16:»777>216 I NCHt^^EiNc TS) 

/ 

/CALL: JMS DP I NO 

/ DPCNTR /ADLHKS5 OF COUNTER 

/ COUNTER OVEI FLOWED HETUPM (AC=^0) 

/ NORMAL RETURN (AC=0) 

/ 

/ DPC^jTR^ /hlGU ORDER PART 

/ /LOW ORDER PART 



DPIl\)C> 



/TEMPORARY ADDRESS 

• "• • 

CLA CLL lAC /SET UP TO GET ADDRESS OF 

TAD I DPINC /LOW ORDER PART 

DCA DPINC-1 

ISZ I DPIMC-1 

JMP DPI NCI /NO OVERFLOl'J 

CML 
SZL 

JMP DPINC+2 /INCREMENT HIGH ORDER PART 

SKP /HIGH ORDER PART OVERFLOW 

DPINCU ISZ DPINC 

ISZ DPINC 

JMP I DPINC 
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